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Sobre este libro 


Este libro contiene gran cantidad de 
divertidos programas que te permitirán usar 
tu computadora para hacer experimentos y 
analizar información. Los programas son 
ejemplos sencillos de cómo los científicos, 
economistas y demás investigadores usan las 
computadoras. Están escritos para 
computadoras personales y funcionan en el 
Commodore 64, VIC 20, TTRS-80 Colour V 
Computer (32k), Apple Il, BBC (B), Electron y 
Spectrum.* 


Sensor de 
temperatura 





En las páginas 24-31 hay instrucciones paso 
a paso para fabricar sensores de | 
temperatura y de luz para tu computadora. 
Los sensores son aparatos electrónicos que 
miden cosas como la temperatura o la luz y 
convierten las mediciones en señales 
eléctricas. Usando sensores la 
computadora puede realizar lecturas 
directamente de un experimento y contarte 
lo que está sucediendo. 





Algunos de los programas son por sí 
solos experimentos. Puedes cambiar 
algunos datos del programa y ver lo que 
sucede. Estos programas se denominan 
modelos. Te permiten comprobar teorías 
y hacer predicciones. 





Otros programas están pensados para En la página 6 puedes ver cómo escribir y 
trabajar con los resultados que obtienes de usar los programas. En las páginas 46-47 
- experimentos y encuestas. Te ayudan a hay una rutina de gráficos que puedes 


analizar los datos, así como a almacenarlos añadir a diferentes programas. 
y visualizarlos de forma útil. o 


*Los sensores de las páginas 24-31 sólo funcionan con computadoras que poseen un port 
«analógico», es decir: Commodore 64, VIC 20, TR3-80 y BBC. 
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Computadoras 
en experimentos 
e investigación 


Los programas que usan los 
científicos y demás investigadores 
suelen ser muy complejos y 
normalmente funcionan en 
computadoras muy potentes. En estas 
dos páginas hay dibujos que 
demuestran cómo se usan algunos 
programas de este tipo. Los 
programas de este libro son mucho 
más sencillos que los programas aquí 
descritos aunque más o menos 
realizan la misma función. 






























se introdujero 


Electrodos 





Reconstruir la gran explosión 


Las computadoras se usan para reconstruir 
sucesos demasiado extensos o demasiado 
complejos para ser estudiados en la 
realidad. Por ejemplo, en EE.UU. los físicos 
están usando una de las computadoras más 
potentes que existen —una Cray 1— para 
reconstruir el nacimiento del Universo. 


La reconstrucción se basa en las teorías 
de los físicos que establecen que el 
Universo surgió como consecuencia de una 
gigantesca explosión. El programa usa 
ecuaciones matemáticas para representar lo 
que sucedió dura, er segundo de la 
explosión y la sig evolución hasta el 
universo que hoy € ñ 







Comparando las predicciones que pueden 
obtenerse de esta reconstrucción con las 
observaciones actuales, los científicos 
pueden ir verificando si sus teorías tienen 
posibilidades de ser ciertas. 


Sensores en la investigación cerebral 


Este es un dibujo de computadora de alguien pensando. 

Para obtenerlo se conectaron unos sensores 

denominados electrodos a la cabeza de una persona y 
oú0s los datos captados en una 


Los diferentes colores 
muestran zonas de mayor o 
menor actividad eléctrica del 
cerebro. Dibujos como éste 
ayudan a los investigadores a 
descubrir para qué 
actividades se usan las 
diferentes zonas del cerebro. 
Se usan actualmente para 
averiguar por qué algunas 
personas tienen problemas 
de lectura, así como para 
diagnosticar tumores 
cerebrales y epilepsia. 


En este libro averiguarás 
cómo conectar sensores 
de luz y de temperatura a 
tu computadora y cómo 
usarlos en tus 
experimentos. 








Diseñar un cohete 


Los modelos hechos en computadoras sirven también 
para desarrollar y probar productos y máquinas como, 


por ejemplo, las naves espaciales. El dibujo inferior se 
obtuvo del modelo de un cohete despegando, producido 
por una computadora. 


Forma 
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/ Las computadoras 
crean modelos que 
usan ecuaciones 
matemáticas ya que 
realizan los cálculos a 
gran velocidad. En 
este libro encontrarás 
varios programas 
para crear modelos. 


on Comientes de 


Las rayas verdes muestran el flujo de aire que se forma 
alrededor del cohete cuando éste viaja a casi la velocidad 
del sonido. Experimentando con el modelo, los ingenieros 
espaciales pudieron predecir el efecto que causaba el 
cambiar el ángulo de ataque del cohete (es decir, el 
ángulo con el que penetra en el espacio). 


Resolución de delitos 


Normalmente la investigación suele dar 
como fruto grandes cantidades de 
información. Los programas denominados 
bases de datos permiten a los 
investigadores almacenar la información en 
una computadora. La computadora puede 
buscar en segundos en una base de datos 
un dato o un detalle y lograr relaciones que 
de otra manera no se obtendrían. En las 
páginas 32-36 tienes un programa base de 
datos que te servirá para almacenar 
información de encuestas o experimentos. 











Uso de los programas de este libro 


Antes de usar los programas de este libro 
lee estos consejos para copiarlos y para 
ejecutarlos. Algunas líneas del programa 
tendrán que modificarse para las 
diferentes computadoras. Estas están 
señaladas con un asterisco y podrás saber 


lo que tienes que cambiar mirando en las 
líneas de tonversión que tienes en las 
páginas 42-45. Cuando hayas introducido 
un programa y compruebes que funciona, 
grábalo en cinta por si alguna vez 
quieres volver a usarlo. 





Copia los programas tal y como están. Al 
final de cada línea comprueba que no 
existan errores y aprieta RETURN (ENTER 
en algunas computadoras).* Cuando 
encuentres una línea con un asterisco pasa a 


las páginas 42-45 y busca la conversión 
correspondiente a tu computadora. Si no 
hay ninguna conversión copia la línea tal y 
como está en el programa. 





A . ES e 


Para hacer que la computadora ejecute añ 
programa escribe RUN. Si el programa no 


Algunos programas necesitan una rutina de 
gráficos antes de poder usarlos. Existen 


distintas versiones de la rutina para cada 
computadora. Las puedes encontrar en las 
páginas 46-47. Asegúrate de añadir la que 
es correcta para tu computadora. 


funciona a la primera, es posible que 
exista un error (denominado chinche). Para 
corregir el programa lista las líneas del 
programa en la pantalla y vuelve a escribir 


o editar las líneas con errores. 





ESCAPE AT LINE 50 


_ BBC y Electron 


Apple 
Aprieta ambas teclas 





LIST 

10 CLS 

20 LET H=0 
30 LET 150 





Spectrum 
Aprieta las teclas 
al mismo tiempo. 





C64 y VIC 20 


- En ocasiones tendrás que añadir o modificar 
líneas. Para hacer esto tendrás que parar el 
programa que se está ejecutando. Aprieta la 
tecla «escape» (como se muestra arriba). 


Luego, lista el programa e introduce las 
nuevas líneas con sus números de línea. 
Para volver a ejecutar el programa escribe 
otra vez RUN. 


*Si tu computadora tiene una tecla ENTER apriétala cada vez que en este libro veas RETURN. 






Este es un programa sencillo que puedes 
probar en tu computadora. Simula el 
lanzamiento de una moneda. Puedes 
experimentar con él para ver qué 
resultados obtienes si tiras una moneda un 
número determinado de veces, 











Comprueba en las páginas 42-45 para 
ver si necesitas cambiar alguna de las 


"10 CLS líneas del programa señaladas con un 
20 LETH=0 asterisco. 
30 LET 1=0 , ' 
50 INPUT N 


60 FOR K=1 TO N 
* 70 LET X=RND (1) 
80 IFX< 0.5 THEN LET H=H+1 
90 IF X>0.5 THEN LET T=[+1 
100 NEXT K | 
110 PRINT “NUMERO DE CARAS = “¡H 
120 PRINT “NUMERO DE CRUCES = “;1 


Ejecución del programa 


Cuando ejecutas el programa le dices a la computadora cuántas veces debe lanzar la 
moneda. Simula los lanzamientos y te dice cuántas caras y cuántas cruces se obtienen. 


Z ¿CUANTOS LANZAMIENTOS? 
2100 


1 ¿CUANTOS LANZAMIENTOS? 

M0 pur dde 

NUMERO DE CARA 
C 







2 





NUMERO DE CARAS = 46 
U 







NUMERO DE CRUCES = 2 NUMERO DE CRUCES = 52 


Simula el lanzamiento diez veces y fíjate en Observarás que cuantas más simulaciones 
el resultado que se obtiene. Luego prueba de lanzamientos realices, más te acercarás 
cien o mil lanzamientos. al resultado de 50% caras y 50% cruces. 















Más sobre modelos en comput 


Aunque éste sea un programa muy — 
sencillo demuestra cómo una O 
simulación hecha con una 
computadora puede ahorrar tiempo 
y dinero a la hora de hacer 
experimentos reales. 7 » 

Prueba a calcular cuánto tardas 7 
en lanzar una moneda cien veces y tE 
anotar los resultados. ¿Qué tal es tu_——4X% 
tiempo comparado con el de la Ma 
computadora? 
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Pelota que rebota 


El programa de esta página 
simula una pelota botando. 
Puedes experimentar con él 
y ver lo que sucede sl 
lanzas la pelota a diferentes 
alturas o con una fuerza 
diferente, o bien sl usas 
una pelota que rebote más. 
Puedes incluso variar la 
fuerza de la gravedad, 
Cuando ejecutes el 
programa tienes que dar a 
la computadora información 





sobre la pelota tal y como Esta es la altura sobre el La dirección de la pelota se 
se indica a la derecha. suelo de tu mano cuando da con un ángulo, por 
sueltas la pelota. Puedes ejemplo, en grados. Si lanzas 


probar con 1 metro o 3 pies. la pelota hacia arriba el 
ángulo estará entre 0” y 90*. 


Programa de la pelota que rebota 
Copia estas líneas de programa y mira en las páginas 46-47 para añadir la rutina de gráficos 
que valga en tu computadora. El programa calcula la distancia en metros. Si quieres que use 
pies sustituye las líneas 20, 40, 50, 70 y 170 por las que se dan en la parte de abajo de la 
página. 


* 10 CLS:PRINT 
20 PRINT “ALTURA INICIAL (M)”: INPUT 
30 PRINT “DIRECCION INICIAL (GRADOS)":INPUT A 
40 PRINT “VELOCIDAD INICIAL (M/S)INPUT V 
50 PRINT “GRAVEDAD (M/S/S) «INPUT 6 
60 PRINT “CAPACIDAD DE REBOTE (0-1)“:INPUTB 
70 LET Té="":LET Y$="5 M":LET X$="20 M'LET M$="2.5" 
80 G0OSUB 2000 
90. LET DT=0.01:LET TB=20:LET NB=0:LET K=3.14/180 
100 LET HS=V*SIN(A+K):LET VS=V+COS(A+K) 
110 LET NX=0:LET NY=H 
120 LET PX=NXLET PY=NY:LET US=VS 
130 LET NX=PX+HS*DT 
140 LET VS=US=G*DT 
150 LET NY=PY+((US+VS))/2)*DT 
160 1F NY<=0 THEN GOSUB 200 
170 LET Y=PY*200:LET X=PX*b0:LET N=0:60SUB 2200 
180 IF X<900 AND NB<TB THEN GOTO 120 
190 STOP 
200 LET VS=SGN(US)+SORM(ABS(US)*2)+2*G+PY) 
210 LET HI=(US-VS]/6 
220 LET NX=PX+HS+HT:LET NY=0 
230 LET VS=-VS*B:LET NB=NB+1 
240 RETURN 























SNA descubiertas por un físico llamado Isaac 


En la Tierra la 
gravedad es 
sobre 9,8 m/s/s 
(32 pies/s/s). 


5 m/s (15 
pies/s) en un 
lanzamiento 








4 a a IA ES eL A AS -. E AAA AN A 
Esta es la velocidad de la La gravedad es la fuerza que Esta es la medición de la 
pelota en el momento en que atrae los objetos a la tierra. capacidad de rebote que 
abandona tu mano. Se mide Se mide en metros por elijas. Puede ir entre 0 y 1. 
en metros por segundo (m/s) segundo al cuadrado (m/s/s) Una pelota dura de goma 
o pies por segundo (pies/s). o pies por segundo al sería de 0,9. Prueba 0,5 ó 0,7. 


cuadrado (pies/s/s). 














Ejecución del programa Experimento en Mercurio 















Altura inicial (M] 

21.5 

Dirección inicial (Grad) DDN id ' ¡ 

245 | A 
A y ponia 


Velocidad inicial (M/S) 
76 
























Gravedad (M/S/S) 
210 

Capacidad de rebote 
20,7 


Prueba a variar la 
altura inicial o la 

capacidad de rebote ( 
de la pelota. 







Ejecuta el modelo con 
¿Parece una pelota f€ 
nuevamente manténis J 
la dirección. > 

¿Cuál hace¿que:! 


E o E 


Cómo funciona el modelo 













programa de la pelota 








| Como la reconstrucción de las páginas botadora e 
4-5 este programa es un modelo 

| matemático. Calcula la trayectoria de la VENUS 8,8 m/s/s ó 28,9 pies/s/s 
pelota usando ecuaciones basadas en MARTE 3,/ m/s/s ó 12,1 pies/s/s 





leyes universales de la física. Fueron JUPITER 26,9 m/s/s ó 86,9 pies/s/s 
SATURNO 11,8 m/s/s ó 38,7 pies/s/s 
- | URANO 9,1 m/s/s ó 29,6 pies/s/s 
2 NEPTUNO 12  m/s/só 39,4 pies/s/s 
| PLUTON 0,4 m/s/só 1,3 pies/s/s 








| Newton quien vivió entre 1642 y 1727. 
Las leyes se refieren al movimiento de 
l los objetos y a la fuerza de la gravedad. 






| Estos son los valores de la gravedad en 
| otros planetas por lo que puedes llevar 
- | tu pelota a rebotar por el Universo. 
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Experimentos 
con pulsaciones 


El programa de las dos páginas siguientes 
hace que la computadora almacene lecturas 
de tus pulsaciones y ls visualice en un 
gráfico. Puedes usarlo para comparar tus 
pulsaciones antes y después de hacer 
ejercicio. En la página opuesta puedes 
encontrar más datos para ejecutar el 
programa. Debajo tienes algunos consejos 
para usarlo. 






























Consejos para usar el programa 


Usa el programa con una serie de lecturas 
de pulsaciones antes de empezar a realizar 
ejercicios. La computadora visualizará un 
gráfico de tus pulsaciones normales. 





Ideas para ejercicios 


JOGGING 

HACER FLEXIONES 

HACER ABDOMINALES 
CICLISMO 

SPRINTS DE CORTA DURACION 


SUBIR ESCALERAS (SUBIENDO Y 
BAJANDO A UNA SILLA) 


Mide la cantidad de ejercicio que haces. Es 

decir, haz por ejemplo jogging durante un 

período fijo de tiempo como pueden ser 

diez minutos, o corre una distancia 

determinada o cuenta el número de 
exiones que haces. 





La computadora trazará un segundo gráfico El programa te permite hacer una tercera 
en un color diferente que te permitirá serie de lecturas, por lo que puedes hacer 
observar el aumento de tus pulsaciones y el un ejercicio diferente y comparar tu ritmo 
tiempo que tardan en volver a la de recuperación para dicho ejercicio. 


normalidad. 


Ejecución del programa 


Cuando ejecutes el programa este mensaje Empieza a contar tus pulsaciones una vez 
te dice que estés listo para tomar las que la computadora dé un pitido y visualice 
pulsaciones. Una vez que aprietas una tecla este mensaje. Después de 15 segundos la 
tendrás unos 15 segundos para encontrar tu computadora da otro pitido que te indica 








pulso. que debes dejar de contar. 

Introduce el número de pulsaciones que Cuando hayas introducido la lectura tienes 
contaste y aprieta RETURN. La computadora — otros 15 segundos para volver a encontrar 
multiplica éste por cuatro para calcular tus tu pulso. Comienza a contar cuando la 
pulsaciones por minuto. computadora pite. 





Después de tomar diez lecturas del pulso la Haz ejercicio y toma la segunda serie de 

computadora visualiza un gráfico mostrando lecturas (denominada GRUPO DE DATOS 2). 

el ritmo de pulsaciones por minuto Para hacer que la computadora vuelva a 

contrastado con el tiempo. tomar mediciones aprieta nuevamente 
cualquier tecla. 


Programa de pulsaciones 


La parte principal del programa se da aquí abajo y en la página siguiente. Cópialo y 
añade la rutina de gráficos de las páginas 46-47. 


10 GOSUB 500 


20 GOSUB 460 

30 FOR S=1 TO 3:G0SUB 210 

40 LET X$="TIEMPO":LET Y$="150".LET M$="75" 
50 LET T$="PULSACIONES / MIN”:GOSUB 2000 


El listado continúa en la página siguiente 
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60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
¿00 
210 
220 
230 
240 
290 
260 
210 
280 
290 
300 
310 
320 
390 
340 
300 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
910 


FOR J=1 TO S 
LET DS=J.G0SUB 120 
NEXT J 

GOSUB 390 

NEXT S 

GOSUB 390:STOP 
LET DC=C(DS) | 
LET M$="GRUPO DE DATOS”+CHR$(48+DS).GOSUB 2400 
FOR K=1 TO TN: 

LET DY=(N(DS,K+1)-N(DS,K))/10 

FOR W=0 TO 9 

LET X=K+K1+W+K2-K1:LET Y=(N(DS,K)+DYxW)*6.6 

LET N=N(DS.K):GOSUB 2200 

NEXT W.NEXT K 

RETURN 

GOSUB 420:PRINT.PRINT 

PRINT “APRIETA UNA TECLA CUANDO" 

PRINT “ESTES LISTO PARA EMPEZAR” 

GOSUB 390 

FOR K=1 TO TN 

GOSUB 420:PRINT.PRINT 

PRINT “GRUPO DE DATOS”; S 

PRINT “TEST "; K:PRINT.GOSUB 370 

PRINT “COMIENZA LA CUENTA..”:GOSUB 350 

GOSUB 440:PRINT “AHORA”.GOSUB 370 

GOSUB 440:PRINT “STOP".PRINT 

PRINT “CUANTAS PULSACIONES .: INPUT X 

LET N(S,K)=X*4:NEXT K 

RETURN 

FOR T=1 TO PT.NEXT T 

RETURN 

FOR T=1 TO FT.NEXT T 

RETURN 

GET 1$ 

IF 1$="" THEN GOTO 390 

RETURN 

CLS 

RETURN 

PRINT CHR$(7) 

RETURN | 

LET TN=10:LET K1=1000/(TN-1):LET K2=K1/10 

DIM N(3,TN).DIM C(3) 

LET C(1)=1:LET C(2)=2.LET C(3)=3 







RETURN is hei 
LET FT=7285:LET PT=900 Ena da oríficas 
RETURN ' para tu computadora. 






Formas de tomarte el pulso 





ML 


El lugar más habitual para tomar el pulso es 


en la muñeca. Súbete la manga del brazo 
derecho y sujeta tu mano derecha con la 
palma hacia arriba. Pon el primero, el 
segundo y el tercer dedo de tu mano 





Otro lugar para tomar el pulso es en el 
cuello. Coloca los dedos de tu mano 
derecha sobre la zona saliente de la parte 
delantera. A continuación deslízalos unos 
5 cm hacia la izquierda. Hay un punto 
hundido de la piel en el que puedes 
percibir las pulsaciones. 





¿Te hallas en buena forma? 


Las pulsaciones vuelven a su estado 
normal después de hacer ejercicio, 
más rápidamente cuanto más en 
forma estés. Los gráficos inferiores 
muestran el ritmo de recuperación 
para distintos niveles de forma física. 
Compara tu gráfico con éstos para 
ver en qué forma te hallas. 


No muy en forma 


Pulsaciones/min Pulsaciones/min 
150 ] 


28 hen 5 


Tiempo 


Si estás realizando ejercicios regulares 
puedes usar el programa para observar si 


tests de pulsaciones con intervalos 





logras mejoría en tu forma física. Repite los 





izquierda sobre el extremo de la muñeca de 
tal forma que estén empujando la piel hacia 
dentro. Justo bajo la piel hay una arteria que 
te debe permitir notar el pulso bajo la punta 
de los dedos. 


Si no tienes ningún 
éxito haz que 
alguien te tome el 





Si no puedes localizar tu pulso fíjate en si 
notas los latidos de tu corazón. Coloca tu 
mano sobre la tercera o cuarta costilla hacia 
arriba en la parte izquierda de tu cuerpo. En 
este punto probablemente notarás que el 
corazón late. 

























Tiempo Tiempo 


superiores a varios meses y anota cada vez 
la forma de los gráficos. Comparando éstos 
podrás ver si tu ritmo de recuperación está 
mejorando. 
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El camino de Ethel 


Ethel acaba de cambiarse de casa y quiere la investigación operacional, es decir, para 


averiguar si es más cómodo ir al trabajo en encontrar la manera más adecuada de 
tren o en autobús. El programa de la hacer cosas. Por ejemplo, ¿cómo debería 
página opuesta puede ayudarla. Simula organizarse un self-service para que la 
tantas veces como quieres los viajes en gente no tenga que hacer largas filas? 
autobús y en tren, por lo que ella puede o, ¿cuál es la mejor manera de distribuir el 
deducir cuál es el mejor, tras un período cargamento en los barcos, o el tráfico en 
de seis meses o un año. las ciudades? 


Los simuladores como éste se usan para 


¿Autobús o tren? 
Aquí hay alguna información 
sobre la trayectoria que tiene 
que seguir Ethel en tren y en 


autobús. La caminata 


hasta la 
estación es de 


ca minuto SS 


Si Ethel va en 
autobús tiene una 
caminata de tres S 

minutos hasta la || 0sjalal o Mi IAARano? 


parada. qe o E e 7 
e x DAA IS PEA CA gas 


' 





Los trenes salen a los 15 ya 
E los 45 minutos de cada hora 
con un 78% que son 
puntuales y un 6% que llegan 
más de cinco minutos tarde. 
Ethel averigua además que 
uno de cada 50 días se 
cancela un tren. 


Los autobuses vienen cada siete 
minutos, pero los asiduos a este 
autobús dicen que uno de cada diez 
días se cancela un autobús. 


Y 





















El viaje en autobús 
debe durar unos 30 
minutos, pero puede 
llegar hasta los 50 
minutos si Ma mucho 


Luego tiene una caminata de 
diez minutos hasta su oficina 










El viaje en tren es 
de 23 minutos y 
hay una caminata 
desde la estación a 
la oficina de Ethel 














de ocho minutos. NAEZA 
Que ptr del 
Ethel ha probado ambos métodos varias Para saber qué camino es mejor, tendrá que 
veces, pero cada parte de la ruta cambia de comparar un número muy alto de viajes en 
un día a otro. En ocasiones el autobús se tren y en autobús. La única manera rápida 
14 retrasa y en ocasiones se cancela el tren. de hacer esto es con la simulación por 


computadora. 


MN 7. AAA a 


Programa simulador de trayectos 


Este programa simula ambas rutas, usando camino y luego suma los tiempos para 
números aleatorios para admitir las obtener la duración total de la ruta del 
variaciones que hay de un día a otro. Por autobús. Obviamente el tiempo de un solo 
ejemplo, en un día determinado la espera viaje no es de mucha ayuda, pero si haces 
de Ethel en la parada del autobús puede ser que la computadora simule el viaje un gran 
entre 0 y 7 minutos. Por lo que cada vez que número de veces, obtendrás una idea de la 
la computadora simula el viaje en autobús, duración media del viaje tras varios meses y 
toma un número aleatorio entre 0 y 7. Hace podrás compararlo con la duración de la 
algo similar con las siguientes etapas del ruta del tren. 

+ VONSUS 


K 


20 GOSUB 860:PRINT "INFORMACION SOBRE LA SIMULACION DEL CAMINO” 

30 PRINT “(TIEMPO EN MINUTOS)" 

40 PRINT “AUTOBUS”:PRINT 

50 PRINT “CAMINATA HASTA LA PARADA”:INPUT W1B 

60 PRINT “TIEMPO ENTRE LOS AUTOBUSES”:INPUT FB 

70 PRINT “DURACION MINIMA DEL VIAJE":INPUT SB 

80 PRINT “DURACION MAXIMA DEL VIAJE”:INPUT LB:LET DB=LB-SB+1 

90 PRINT “PORCENTAJE DE AUTOBUSES CANCELADOS”:INPUT PB 

100 PRINT “CAMINATA DESDE LA PARADA”:INPUT W2B 

110 PRINT:PRINT “TREN":PRINT 

120 PRINT “CAMINATA HASTA LA ESTACION":INPUT W3T 

130 PRINT “HORARIO DE TRENES (HRS.MINS)“«FOR l=1 TO 6 

140 INPUT TT:GOSUB 840:LET T(1)=T1 

150 NEXT | 

160 PRINT “DURACION DEL VIAJE”:INPUT TJ 

170 PRINT “PORCENTAJE DE TRENES PUNTUALES”:INPUT PT 

180 PRINT “PORCENTAJE DE TRENES CON MAS DE 5 MINUTOS DE RETRASO"INPUT Po 
190 PRINT “PORCENTAJE DE TRENES CANCELADOS”:INPUT PC 
200 PRINT “CAMINATA DESDE LA ESTACION":INPUT WAI 
210 PRINT:PRINT 

220 PRINT “HORA DE LLEGADA (HH.MM.) “INPUT AS 
230 LET TI=VAL(AS):GOSUB 840:LET TA=TT 

240 PRINT "HORA DE PARTIDA (HH.MM.) “INPUT L$ 
250 LET TI=VAL(L$):GOSUB 840:LET TL=TT 

260 PRINT “CUANTOS VIAJES”:INPUT NJ 

270 FOR ll TO 2:FOR J=1 TO 3 
280 LET L(1,J)=0 

290 NEXT J:NEXT 1 

300 FOR K=1 TO NJ 

310 LET TS=TL 

320 LET OV=rnd*100 

330 IF OV<2 THEN LET TS=TS+rnd*3 
340 LET T=TS 
350 G0SUB 610 
360 LET T=TS 
370 GOSUB 700 
380 FOR l=l TO 2 
390 IF J(1)<=0 THEN LET L(,1)=1(1,1)+1 
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400 IF J(1>0 AND J(1)<=5 THEN LET L(1,2)=1(1,2)+1 
410 IF J(1)>5 THEN LET L(1,3)=L(1,3)+1 

420 NEXT | 

430 NEXT K 

440 PRINT:PRINT “RESULTADOS:" 

450 PRINT:PRINT “TRAS *:NJ;” RECORRIDOS" 
460 PRINT “SALIENDO A LAS “;L$ 

470 PRINT “PARA LLEGAR A LAS ”;A$ 

480 PRINT 

490 FOR 1 TO 2 

500 IF l=1 THEN PRINT “EN AUTOBUS” 

910 IF l=2 THEN PRINT “EN TREN" 

020 PRINT 

530 PRINT “A LA HORA “L(1,1) 

940 PRINT “MENOS DE 5 MINS TARDE “¿L(1,2) 
090 PRINT “MAS DE B MINS TARDE ”;L(1,3) 
060 PRINT 

070 NEXT | 

000 PRINT "EJECUTAR EL PROGRAMA OTRA VEZ (S/N)":INPUT A$ 
590 IF A$="S" THEN GOTO 210 

600 STOP 

610 LET T=I+W1B 


* 620 IF md*100<PB THEN LET T=T+FB 


* 


k 


k kk ko ok 


630 LET WI=INT(rmd*FB] 

640 LET T=I+WIT 

650 LET BJ=5B+INT)DB+*(rnd+rnd)*0.5) 

660 LET T=T+BJ 

6/0 LET T=T+W2B 

680 LET J(1)=I—TA 

690 RETURN 

700 LET T=I+W3T 

110 LET 0 

120 LET l=l+1.1F l=7 THEN PRINT “NO MAS TRENES”:STOP 
130 IF T()<T THEN GOTO 720 

140 LET TI=T(I) 

750 IF rd*100<PC THEN LET TT=T(1+1) 

7160 LET DL=0:.LET R=rnd*100 

170 1F R>PT THEN LET DL=INT(rnd+*b) 

180 1F R>(100—P5) THEN LET add 
190 LET T=TT+DL 

800 LET T=T+TJ 

810 LET T=I+W4T 

820 LET J(2)=I-TA 

830 RETURN 

840 LET TI=INT(TT)*60+INT(100+«(TT—INT(TT))+0.5) 
050 RETURN 

860 DIM L(2,3):DIM J(2):DIM 16) 

870 RETURN 

























Uso del programa 
















Cuando ejecutes el 
programa tendrás que 
introducir la información 
sobre ambas rutas tal y 
como se muestra a la 


INFORMACIÓN SOBRE LA SIMULACION DEL CAMINO 
(TIEMPO EN MINUTOS) 


derecha. La información AUTOBUS 
sobre la ruta de Ethel viene CAMINATA HASTA LA PABADA 
en el dibujo de la página 14. 23 
TIEMPO ENTRE LOS AUTOBUSES 
2] 













En la página 
siguiente tienes 
algunos consejos 


DURACION MINIMA DEL VIAJE 
230 








para que veas el DURACION MAXIMA DEL VIAJE 
oe le 250 
| PORCENTAJE DE AUTOBUSES CANCELADOS 
210 


CAMINATA DESDE LA PARADA 
20 








3 HORARIO DE TRENES (HRS.MINS) 
27.45 









| 28.15 

CANCELACION DE AUTOBUSES=1 de 10 6 1/10 28.45 

1/10x100=10% 29.15 
Multiplica por 100 para e 





convertir en porcentaje. 


CANCELACIONES DE TRENES=1 de 50 6 1/50 
1/50 x 100 = 2% 


Las cancelaciones de trenes y 
autobuses han de darse en porcentajes. 
Aquí puedes ver cómo convertir cifras 

en porcentajes. 


Puedes introducir hasta seis horas para los 
trenes. Elige los trenes próximos a la hora en 
que piensas que Ethel debe salir. Si no 
quieres introducir seis, tienes que anular las 
últimas introduciendo un 0 y apretando 
RETURN. 





CUANTOS VIAJES 
2100 


di 


HORA DE LLEGADA (HRS.MINS) 
29.00 


HORA DE SALIDA (HAS.MINS) 
28.05 


Diez pruebas no son más que dos 
semanas de trabajo —no son 
suficientes para calcular con 
precisión—. Mil, por otra parte, 
implicaría un cálculo demasiado 
largo. 





También tendrás que introducir la hora La computadora debe simular suficientes 
aproximada a la que quieres llegar y salir. viajes para que pueda darte una visión 
Calcula la hora a la que debe salir Ethel precisa de la duración de los viajes. Cien 
para llegar al trabajo a las 9 en punto. simulacros son cerca de seis meses de 
Prueba con 8.00 ó 8.05 a.m. viajes y pueden darte una solución fiable. 
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Estudiar los resultados 


Estos son algunos resultados obtenidos con el trayecto de Ethel. Tus resultados pueden no 
coincidir ya que las simulaciones varían cada vez que se ejecuta el modelo. 


1 RESULTADOS 


TRAS 100 RECORRIDOS 
SALIENDO A LAS 8.05 

PARA LLEGAR A LAS 9.00 
EN AUTOBUS 

ALA HORA 0 

MENOS DE 5 MINS TARDE 31 
MAS DE 5 MINS TARDE 30 


EN TREN | N TRE | - 
ALA HORA O | )RA 93 | 
MENOS DE 5 MINS TARDE O 
MAS DE 5 MINS TARDE 100 


¿Por qué una a diferencia de unos 
pocos minutos, al salir, crea una 
diferencia tan grande a la hora de 
llegar en tren? 


Comparando los resultados del tren y del ¿Pero es la conclusión la misma si varías la - 


autobús puedes decidir qué medio de hora de salida de Ethel? Ejecuta | 
transporte es más adecuado para la hora de nuevamente el modelo alterando la hora de p. 
salida que diste. salida. 


2 a 


Hei As 


¿a (e 1) val 0d ) 





Supón que al jefe de Ethel no le importa que Ethel está a cargo de abrir la oficina, por lo 


de vez en cuando llegue algo tarde pero que nunca debe llegar tarde. En este caso 
que no consiente que llegue muy tarde ni ¿qué medio de transporte debe usar? ¿A qué 
que llegue siempre tarde. ¿A qué hora debe hora debe salir? 


salir Ethel? ¿Debe ir en tren o en autobús? 






Simula tus trayectos 





Para encontrar información para el modelo fíjate en 
los horarios de trenes y autobuses, y llama al 
servicio local de transportes para preguntar sobre 
la duración de los trayectos y las cancelaciones. 
Pregunta también a personas que veas en las 
paradas y en la estación. 
Si lo deseas simula una sola ruta. Para saltarte la 
otra ruta aprieta RETURN cada vez que la 
computadora te pida información sobre ella. 















Más sobre simulaciones 




















En aquellas simulaciones que usen números aleatorios es 
importante que los números obtenidos den una gama 

realista de valores. Por ejemplo, el viaje en autobús de 
Ethel puede durar entre 30 y 50 minutos, pero 
normalmente es de 40 minutos. En el 

programa la instrucción puede obtener 
números aleatorios de los que la 
mayoría sean números 
próximos a 40. 


Por otra parte, la espera de Ethel 
en la parada del autobús tiene 
tantas posibilidades de ser de dos 
minutos como de ser de cuatro o 
siete minutos, por lo que la 
instrucción para obtener este 
número da una gama de valores 
de este estilo. 





Algo que : 
probar E 
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El programa inferior genera 100 números Si sustituyes las líneas 10, 20, 50, 60 y 120 
aleatorios para el viaje de Ethel en autobús. por las del cuadro, el programa generará la 
Los visualiza en la pantalla con tiras de espera de Ethel en la parada del autobús. 
estrellitas por lo que puedes observar la Compara esta gama de valores con la que 
variedad de valores. Prueba a ejecutar obtienes con los tiempos del viaje en 

varias veces el programa y observa el autobús. 


dibujo que se forma. 
Programa del viaje en autobús 


10 -LET SB=30:LET DB=21 (EL TR 
20 LET L=21:.LET B=29 mit 
30 DIM FIL) 
40 FOR N=1 TO 100 
* 50 LET BJ=SB+INT(DB*(rnd+rnd)*0.5) 
60 LET P=BJ+1-SB 
70 LET FIP)=F(P)+1 
80 NEXT N 
* 90 CLS 
100 PRINT:PRINT 
110 FOR N=1 TO L 
* 120 PRINT TAB(0):B+N;TAB(5):" *; 
130 IF F(N)=0 THEN GOTO 150 
* 140 FOR J=1 TO F(N):PRINT “*";¿NEXT J 
150 PRINT.NEXT N 19 








Sobre modelos económicos 


La economía es el estudio de cómo se produce 
y distribuye la riqueza en un país. La economía 
de un país es realmente compleja. La única 
manera por la que un economista puede tener 
en cuenta todos los factores que influyen es 
creando un modelo económico en una 
computadora. 



















Los gobiernos usan modelos 
económicos para predecir la 
inflación y el paro así como 
el efecto de sus políticas de 
subida de impuestos. Los 
modelos también sirven para 
demostrar lo que hubiese 
sucedido en el pasado si sus 
políticas hubiesen sido 
diferentes. 






























aaa 


El dinerY/ gastado + 
por los (turistas dl 


es parfe e o 


O OS 
a 





















alo 
ES conomíás; 





Algunos países 
producen y 
exportan bienes. 










Cada país depende de una 
manera o de otra de sus 
exportaciones e 
importaciones. Un modelo 
económico debe tener en 
cuenta el hecho de que la 
economía de un país puede 
afectar a la de otro. 





/ 
> El ca 
Los AS naturales 
como el petróleo, el 





Foro son 
,»| importantes 





3 Los programas que simulan 
la economía de un país se 
denominan modelos macro- 
económicos (macro 
significa a gran escala). Los 
modelos micro-económicos 
se usan para estudiar una 
compañía o una industria 
determinada. Ayudan a las 
empresas a planificar lo 

que deben hacer. 















Las línicas « abre uo 
y navales son a dy 
servicios que los paisa 
pueden realizar por todo 
el mando: din 







En ocasiones el modelo 
de una empresa está 
relacionado con un 
modelo macro-económico 
con el fin de averiguar 

las influencias sobre la 
empresa de los factores 
económicos generales. 




























Más sobre modelos 


A O 
economicos | 
Los modelos económicos se basan en | 
teorías. Nadie entiende realmente cómo Las diferentes tendencias políticas usan | 
funciona la economía y muchos sucesos modelos distintos y, a menudo, discrepan | 
económicos nunca han sido realmente sobre los efectos que tendrá una 


20 explicados. determinada política. 





Dirección de una línea aérea 


El programa inferior es un modelo económico muy sencillo para dirigir una compañía de 
líneas aéreas. Puedes usarlo para experimentar con diferentes estrategias empresariales 
y ver cuál funciona mejor. 


10 LET G$=" G.”.LET ES="DEMASIADOS” 
20 DIM A[5) 

30 LET AC=50000 

40 LET RC=10000 

90 LET M=500000 

60 LET A=0 

70 LET YR=1 

80 LET TC=M:LET VA=0 

90 GOSUB 880 h 

100 no MACRO-ECONOMICAS PARA LOS PROXIMOS 5 AÑOS**" 


120 PRINT “TASA DE INFLACION (04)" 
130 GOSUB 860.LET FR=RT 
140 PRINT “TIPOS DE INTERES (0%)" 
150 GOSUB 860:LET TR=RT 
160 LET Pg="TIPO DE CAMBIO»*1. AUMENTADO=2. CONSTANTE=3. DECRECIENTE+" 
170 GÓSUB 800 
180 INPUT ER.JF ER<1 OR ER>3 THEN GOTO 180 
190. LET ER=0.8+ER/10 

200 GOSUB 880. 
210 LET P$="POLITICA PARA EL PROXIMO AÑO=*".GOSUB 800 
220 PRINT “AÑO “VR 
230 LET X=0.LET P$="*COMENZARAS EL AÑO CON:==".GOSUB 800 
240 GOSUB 740 
250 LET P$="*CUANTOS AVIONES QUIERES COMPRAR=".GOSUB 800 
260 INPUT NAF NA<0 OR NA=AC>M THEN PRINT ES.GOTO 260 
270 LET AENA ACE CS=NA+AC 
280 LET P$="*CUANTA TRIPULACION QUIERES CONTRATAR=".GOSUB 800 
290 INPUT NCIF NC<O0 OR NC+RC+CS>M THEN PRINT ES.GOTO 290 
300. LET 0S=CS+RC+NC | | 
310 LET P$="*CUANTO QUIERES GASTAR EN PUBLICIDAD+" 
320 GOSUB 800 
330 INPUT MVJF MV<0 OR MV+CS>M THEN PRINT ES.GOTO 330 
340 LET CS=CS+MV 
350 G0SUB 880 
360 LET P$="RESULTADOS DEL AÑO "+STR$(YR)+"**".G0OSUB 800 
370 LET X=TC:G0SUB 900.LET SC=TC 
380 LET P$="COMIENZO DEL ANO” 
390 GOSUB 730-LET A=A+NA 
400 LET BC=1000+2000*A 
410 LET CS=CS+BC 
420 LET X=CS.GOSUB 900 
430 LET P$="*GASTO DE DINERO = "+STR$IX)+G$+"*".GOSUB 800 
440 LET M=M-CS.IF M<O0 THEN PRINT “ESTAS EN BANCARROTA!':STOP 
450. LET F=NC/2.1F A<<F THEN LET F=A 
460 LET LE=1.4+(MV/(RC+F=2+1))*3 
470 1F LF>2 THEN LET LF=2 
480 LET CR=RC+F+LF+ER*2 
490 LET X=CR:GOSUB 900 
500 LET-P$="DINERO RECIBIDO= "+STR$(X)+G$+"*".GOSUB 800 
510 LET IN=INT(M+TR) 
520 LET X=IN:GOSUB 900 
530 LET P$="INTERESES POR EL DINERO INVERTIDO= "+STR$(X)+G+"»**".G0SUB 800 
540 LET M=M+IN+CR 
550 LET VA=0 
560 FOR l=1 TO YA 


570 LET All)=A(1)x0.8 Po py dee o | 
580 LET VA=VA+ All) | El listado continúa en la página siguiente. 9] 
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NEXT | 

LET AC= add LET RC=RC+(1+FR) 

LET TC=VA+M 

LET X=TC:GOSUB 900:LET P$="FINAL DEL AÑO”.GOSUB 730 

LET DC=TC-SC:LET P$="BENEFICIO”-1F DC<0 THEN LeT PS= PERDIDA” 

LET X=ABS(DC):G0SUB 900:LET da "+P$+"="+STREIX)+6$+""".GOSUB 800 
LET 0S="PRINCIPIO*:LET RS="Fl 

IF. DC<0 THEN LET O$="FINAL: ler Qs PRINCIPIO" 

Edo P$="(CAPITAL AL “+RS+" DEL AÑO+— CAPITAL AL "+0$+” DEL AÑO)" 


UB 800 
PRINT:PRINT:PRINT “APRIETA RETURN" 









INPUT X$ 

LET YR=YR+1:1F YR<6 THEN GOTO 200 El programa utiliza 
PRINT:PRINT:STOP una moneda 

LET P$="CAPITAL AL "+P$+"*:GOSUB 800 imaginaria 


denominada Grotes 
(G para abreviar). 


LET X=M:GOSUB 900:PRINT "":X.G$;” DINERO" 

LET X=VA:G0SUB 900 

LET P$="AVION VALE "+STR$(X)+G$+"*".G0SUB 800 
LET X=VA+M:G0SUB 900 

LET PS="TOTAL = "+STR$(X)+G$+**" 

G0SUB 800:RETURN 

FOR L=1 TO LEN(PS) 

LET M$=MIDS(P$,L,1) 

LET PS=P0S(0)=28 

O CLON PS>0) OR M$="*" THEN PRINT.GOTO 850 
NEXT L:RETURN 

INPUT RT.JF RT<0 OR RT>50 GOTO 860 

de RT=RT/100:RETURN 


PRINT:PRINT:RETURN 
LET X=INT0/1000+0.5)*1000 
RETURN 


Sobre el programa 


Controlas una pequeña compañía de líneas la predicción de la inflación, los tipos de 
aéreas y estás planeando tu política para interés y el tipo de cambio. Debajo puedes 
los cinco próximos años. Para empezar le encontrar más cosas sobre éstos. 

das a la computadora información sobre las A continuación debes decidir las 
condiciones macro-económicas generales estrategias para cada año. 

que pueden afectar a tu negocio. Estas son 





Tasa de inflación 


La tasa de inflación (el ritmo al que suben los 
precios) afecta al coste a la hora de comprar un 
nuevo avión, pagar a la tripulación o pagar los 
gastos generales. 


| TÚ Tipos de interés 
El tipo de interés determina cuánto puedes ganar 


por el dinero que guardas en el banco. 


la A Tipos de cambio 
' l El tipo de cambio indica cuántas divisas obtienes 
id como intercambio por tu dinero. Ello afecta al 
número de billetes que vendes en el exterior. Un 
tipo de cambio en aumento significa que vendes 
menos billetes ya que resultan más caros. 





Ejecución del programa 


Predicciones 


macro-económicas PREDICCIONES MACRO-ECONOMICAS 


Introduce la inflación, el tipo de PARA LOS PROXIMOS 5 AÑOS 


interés y el tipo de cambio 
previstos para cada año. Puedes 
inventar la información o bien 
acudir a cifras reales que puedes 
tomar de los periódicos. 


TASA DE INFLACION ANUAL 0 
28 
TIPO DE INTERES / ANUAL e 





L Decidir el tipo de política 


















POLITICA PARA EL PROXIMO AÑO 
AÑO 1 ; 
COMENZARAS EL AÑO CON 
500000 G. DINERO 

AVION VALE 0 G. 

Total =500.000 G. - 

CUANTOS AVIONES QUIERES 
COMPRAR Al 


- 1. Al comienzo de los cinco años un 
avión vale 50.000 G. y el precio asciende 
cada año según la tasa de inflación. 


2. Necesitas dos tripulantes para cada 
avión. Los sueldos y costes.de 
mantenimiento de un avión durante un 
año ascienden a 10.000 G. al principio 
de los cinco años. Estos costes 
aumentan cada año según la tasa de 
inflación. : 


CUANTO QUIERES GASTAR EN 
PUBLICIDAD 
A 









3. Existe un gasto anual fijo de 1.000 G., 
más 2.000 G. por cada avión, que deben 
pagarse aunque no se usen los aviones. 





Estas son las decisiones que debes tomar cada 
año. A la derecha tienes información sobre los 
costes y demás factores que pueden afectar a tus 
decisiones. 


4. Obtienes intereses al tanto por ciento 
establecido con todo el dinero que no 
gastes. 






3 Resultados RESULTADOS DEL AÑO 1 

Cada año la computadora calcula CAPITAL AL PRINCIPIO DEL AÑO 

tu capital (es decir, tu dinero en 500.000 G. DINERO 

efectivo más el valor de los AVION VALE 0 G. sde ass ea A 

aviones), al principio y al final del TOTAL = 500.000 G. 

año. También calcula el beneficio A MB DIA CIón 

o pérdida que tengas. GASTO DE DINERO = 267.000 G. Este es el dinero que 
Ejecuta varias veces el DINERO RECIBIDO = 108.000 G. obtuviste vendiendo 

programa manteniendo la tasa de INTERESES POR EL DINERO a 

inflación, el interés y el cambio INVERTIDO = 23. 000 G. 

fijos, pero aplicando distintas A ¡Este es el interés por 

políticas. Luego mantén iguales o: APITAL AL FIN AL! D 03 pe Marc e el dinero ra no 

las políticas y varía la inflación o 364.000 € . DINERO. ha pas 


el tipo de cambio. | o Al 20.001 Md ATAN 
aa e A erden una 
=¿ 84.00 OS DERE dl mia parte de valor. | 
o ' ano 7, 3 
ERDI DA= 16.000 G. oral ' 
AP ITAL AL PRINCIPIO DEL AÑO 
APITAL AL FINAL DEL AÑO) 
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Experimentos con sensores 


En las páginas siguientes descubrirás cómo fabricar sensores que permitirán a tu 
computadora visualizar gráficos de cambios luminosos o de temperatura. Puedes usar 
los sensores en multitud de experimentos como pueden ser los cambios de 
temperatura de tu cuerpo al hacer ejercicio, al dormir o al estar enfermo, Debajo 
tienes instrucciones para fabricar un sensor de temperatura usando un componente 
electrónico denominado resistencia térmica. En las páginas 30-31 puedes encontrar 


instrucciones para fabricar el sensor luminoso. 


Resistencia té 


Port analógico 


Una resistencia térmica permite, según la 
temperatura que tenga, que a través suyo 
fluyan diferentes cantidades de corriente 
eléctrica que la computadora puede 


Cosas que necesitas 


Estos son los materiales que necesitas para 
fabricar el sensor de temperatura. Puedes 
comprar las resistencias, la resistencia 
térmica y gran parte de los materiales en 


Enchufe para conectar el port analógico de tu 














Ai. Commodore 64 y VIC 20 

ZTTLEA y Hembra de 9 

¡ua patillas tipo D 
== (entrada). 


BBC 

Macho para 15 
patillas tipo D 
(clavija). 


TRS-80 
Clavija DIN de 6 
patillas. 











reconocer. Tú debes programar la 
computadora para que traduzca las 
señales eléctricas a lecturas de 
temperatura. 


tiendas especializadas o bien, pedirlos a 
un distribuidor electrónico. Busca la 
dirección de un distribuidor en alguna 
revista de electrónica. 


Resistencia térmica tipo 
VA10675 (si no consigues 
ésta, valdrá cualquier 


resistencia térmica de 100K). 


Para el Commodore 64, VIC 
20 y BBC — una resistencia de 
1M ohmnio ((2), 0,25 ó 0,5 
watios. Esta posee franja 
marrón, negro y verde. 

Para el TRS-80 — una 
resistencia de 100 K ohmnios, 
0,25 6 0,5 watios. Esta posee 
franjas en colores marrón, 
negro, amarillo. 








Cable con aislante. Por 
24 ejemplo cable telefónico. 


Tijeras o un corta- 
cables y alicates. 


Un soldador y estaño. Cinta aislante y una 
bolsa pequeña de 
plástico o papel de 
celofán. 








Fabricación del sensor 


En el dibujo de la derecha puedes 
ver la apariencia que tendrá tu 
sensor cuando esté terminado. 
Tendrás que soldar cables a las 
patillas por detrás de la clavija 
para a continuación unir los Commodore 64 ' 
componentes a los cables. En la y VIC 20 
página 29 encontrarás algunos 
consejos para soldar. Los 
diagramas inferiores muestran a 
qué patillas deben soldarse los 
componentes. Asegúrate de que 
sigues el diagrama 






Las patillas 







correspondiente a tu están 
computadora. | ? numeradas en 
BBC SÓ | la parte trasera 


Diagramas de los cables 


de la clavija. 


Parte trasera 
de la clavija 


Resistencia térmica 


Resistencia Cubierta —+ 
de metal 


Parte Parte trasera de la clavija 
trasera 


dela 7 Para conectar la clavija DIN quita la funda de plástico y la 
clavija cubierta metálica que hay debajo. Antes de soldar los cables a 
las patillas, mételos a través de la funda de plástico para que 
puedas volver a montar la clavija una vez que hayas terminado 
el sensor. | 


Resistencia 
térmica ————» 


ables para la 


Consejos resistencia térmica 
1. Usa cables largos (sobre 60 cm.) para conectar la 
resistencia térmica a la clavija. Esto es para que puedas 
separarla de la computadora cuando hagas experimentos. > 
Puedes usar cables mucho más cortos para la resistencia. pS 
Cables 
para la 


/ 
| 
2. En primer lugar suelda los cables a las patillas por resistencia E : 
detrás de la clavija y finalmente suelda la resistencia y la o AÑ a 
resistencia térmica a los cables. Comprueba a 
cuidadosamente que cada cable está conectado a la patilla 
correcta. 


3. Cuando hayas terminado el sensor, cubre todas las 
junturas y cables pelados con cinta adhesiva, ya que si no 
los cables pueden entrar en contacto provocando un 
cortocircuito que puede llegar a dañar tu computadora. 





8 
Cinta aislante 





26 


Comprobar la resistencia térmica 













En esta página tienes un test 
con el que comprobar si la 
resistencia térmica funciona. 
Para ello debes empezar por 
apagar la computadora y 
conectar la resistencia 
térmica al port analógico. A 
la derecha puedes averiguar 
qué port debes usar. Luego 
conecta nuevamente la 
computadora y copia el 
siguiente programa. 


En el VIC 20 el port analógico se 
denomina «control port», y en 

Commodore 64 «control port 1». Usa 
el port «right joystick» en el TRS-80. 
y en el BBC el denominado 
«analogue». 





Programa para la resistenclz térmicas 




















10 GOSUB 500 


stas líneas son válidas sólo 
20 GOSUB 1000 para el Commodore 64. Mira 
30 PRINT “R =R en las páginas 42-45 para 


modificarlas y que valgan para 
40 GOTO 20 ia 


500 LET K1=4000 ll 
510 LET K2=1 
520 RETURN 

* 1000 LET TR=1.84*PEEK(54297) 

= 1010 LET R=1/(1/TR-1/1000) 

«1020 LET T=1/((LOGIR/K2))/K1+1/273)-273 

1030 RETURN 





Y es dó 


3 







Y R=343.011723 
R=341.912446 
R=342.017782 
R=342.560132 
R=342.980561 









R=203.55/312 
R=203.825601 
R=203./63328 
R=204.14426/ 
R=207.352971 
R=209.788356 













Tus números pueden ser 
diferentes a estos. 
















R=343 765498 A=212.659770 
R=344.912334 A-215.998342 
A=345.201673 A=218.001539 








R=345.180231 
R=345.4/2109 
R=344.826075 
R=344.396664 
R=343./56108 


Cuando ejecutes el programa saldrá una deben descender para posteriormente 

serie de números en la pantalla. Estos son volver a subir cuando la alejes del calor. Si 

producidos por las señales de la resistencia esto no sucede, el sensor no está 

térmica que denominamos R. funcionando. Comprueba que todas las 
Para comprobar que las señales vienen conexiones sean correctas y estén firmes y 

realmente de la resistencia térmica sujétala que no haya cables pelados en contacto. 


junto a algo caliente. Los valores de R 





Calibrar la resistencia térmica 


Antes de poder usar la resistencia térmica 
en experimentos, tendrás que convertir los 
valores R en temperaturas. Esto se 


El valor medio de R 
es 551.027 


denomina calibrar la resistencia térmica. 
Debajo puedes encontrar cómo calibrarla 
entre las lecturas 0%C y 80*C. 


Pon la resistencia térmica en una 
pequeña bolsa de plástico o 
protégela con papel de celofán 
para que no se moje. 





Para saber cuál es la lectura de la 
resistencia térmica a 0%C colócala en un 
plato con hielos. Asegúrate de que esté 
totalmente cubierta de hielo. Los valores de 
R en la pantalla ascienden. A los diez 
minutos llegarán a un nivel estable (aunque 


Z 


Lista el programa y vuelve a escribir la 

línea 510 haciendo que K2 sea igual a tu 
valor de R. K2 es la mínima dentro de la 
escala de temperaturas. 













Para saber la lectura de la resistencia 
térmica correspondiente al máximo de la 
escala, colócala en agua calentada a 80 *C. 
Puedes usar un termómetro de cocina para 
calcular la temperatura del agua. Debes 
hacer que las lecturas de temperatura de la 
computadora coincidan con las del 
termómetro sustituyendo el valor de K1 en 
la línea 500 del programa. 


510 LETK9= <———————— Escribe aquí tu 
30 PRINT “TEMPERATURA = “¿INT (TM) 


siempre fluctuarán ligeramente). Aprieta 
ESCAPE para pasar el programa. De los 
números visualizados en la pantalla toma el 
valor más habitual de R y redondéalo hasta 
que tengas sólo 3 decimales. 


valor de R 


A continuación sustituye la línea 30 por la 
versión dada arriba. Esta hace que la 
computadora visualice las lecturas de la 
temperatura en lugar de R. 


E 
p 17 . » 


Si la lectura de la 
temperatura de la 
computadora es muy 
baja, haz Kl1 menor. Si ( 
es muy alta haz Kl p 


mayor. 


Para cambiar K1, para el programa y lístalo 

en la pantalla. Luego experimenta haciendo 

Kl mayor o menor en doscientas o 

trescientas unidades y ejecutando el 

programa para comprobar las nuevas 

lecturas de temperatura de la computadora. 
Varía K1l hasta que las lecturas de la 
computadora coincidan con las del 

termómetro. al 


*En tu computadora la tecla ESCAPE puede denominarse de otra manera. Ver página 6. 


Hacer experimentos 





Aquí tienes algunas ideas sobre e gráfico con sólo añadir las líneas de 

experimentos que puedes llevar a cabo programa de la parte de abajo de esta 

con la resistencia térmica. página y la rutina de gráficos de las páginas 
Puedes hacer que la computadora, en 46-47. 


lugar de simples lecturas, visualice un 






Ideas para llevar a cabo 






1. Toma la temperatura de tu cuerpo. Para ello 
sujeta fuertemente la resistencia térmica con la 
palma de la mano o bien colócala en tu axila. 







2. Sitúa la resistencia térmica en una taza de agua 
caliente situada en una corriente de aire frío y 
observa la forma de la curva de enfriamiento que 
obtendrás en la computadora. 

Recuerda que debes colocar la resistencia en una 
bolsa de plástico para que no se moje. 


3. Usa la resistencia térmica para medir los 
cambios de temperatura que tienen lugar al realizar 
algún experimento químico. Por ejemplo, mezcla 
una cucharada de vinagre con cuatro o cinco trozos 
de bicarbonato y mide los cambios de temperatura 
al reaccionar el ácido con la base. 

















4. Traza un gráfico con las variaciones de 
temperatura de una habitación durante un día o una 
noche completas. Para hacer esto, la computadora 
debe trazar el gráfico muy lentamente. Debajo 

puedes averiguar cómo cambiar el programa para 
que haga esto. 













Lineas de gráficos 


* 30 LET FI=10.LET DX=10 
40 LET T$="TEMPERATURA”.LET Y$="1 00": LET X$= 
50. LET M$="50".G0SUB 2000 
60 LET X=0 
70 LET SM=0:FOR J=1 TO 5 
80 GOSUB 1000:LET SM=SM+T 
90 NEXT J:LET T=SM/5 







Comprueba en las páginas 
42-45 si debes hacer algún 
cambio para tu 
computadora. 















100 LET -Y=1+10; LET N=INT(T): GOSUB 2200 wa ha q, Recuerda que debes 
110 FOR al TO FT.NEXT L MA añadirle la rutina de 
Y p: . A fi E is 
120. LET X=X + DXIF X<1000 THEN GOTO 70. O 
_ 130. LET M$="APRI ETA UNA TECLA”.GOSUB 2400. ep 
* 140 GETIS. | 
150 oro 140. 
El gráfico muestra cómo la temperatura lentamente para que, por ejemplo, muestre 
cambia con el tiempo.* La computadora las variaciones que tienen lugar durante 10 
completa el gráfico en un minuto. Para hacer minutos o durante 12 horas. Para que haga 
que realice uno nuevo, aprieta RETURN. esto lista el programa e incrementa el valor 
Para algunos experimentos necesitas que de FT en la línea 30. 


28 la computadora dibuje el gráfico más 


*En el TRS-8C el gráfico sólo muestra cambios de temperatura de 3C o más. 





Consejos para soldar 


Esponja húmeda para 
limpiar el soldador 


111 y 
UL El By, 
E y úá=N 1 


Enchuía el soldador y deja que se caliente. 
Asegúrate de que lo colocas en un sitio 
adecuado ya que la punta se pone muy 
caliente. Sujeta la clavija con cinta a una 
superficie fija para que puedas soldar. 





Las patillas 
están 

numeradas 
por detrás. 


UNE (A y) 
OU WS 





Para soldar un cable a una 
patilla sujétala dentro o junto 
al extremo trasero de la 
patilla. 





Para unir un componente (ej. la resistencia 
térmica) a los cables, retuerce juntos la 
patilla del componente y el cable tal y como 
se muestra arriba. A continuación, 
suéldalos. 


Cómo estañar el cable 


Estañar significa cubrir un cable con una 
fina capa de estaño que una los pelillos. 
Esto hace que luego sea más fácil de 
soldar. Para estañar un cable retuerce los 
pelillos juntos. Luego pasa por encima el 
soldador dejando una fina película de 
estaño. 


Toca el estaño con el soldador 
hasta que se forme una gota 
de estaño fundido en la punta. 








Corta dos trozos de cable de 60 cm para la 
resistencia térmica y otros dos trozos más 
cortos para la resistencia. En los extremos 
corta 1 cm. de aislante, retuerce los 
filamentos de cable pelado y «estáñalos» 
(ver abajo). 


Cuida de que el 
estaño no llegue a 
otras patillas. Si 
sucede límpialas 





A continuación coloca la 
punta del soldador en la 
juntura y espera hasta que 
la gota de estaño caiga 
sobre ésta y se solidifique 
uniendo el cable a la patilla. 





Cuando hayas hecho todas las conexiones 
cubre todos los cables pelados con cinta 
aislante para evitar cortacircuitos. La forma 
más fácil es doblar la cinta a lo largo sobre 
los cables. 


Estaño al 

Si estás soldando dos cables 
a una patilla, retuerce primero 
los dos cables y estáñalos, 
luego une la patilla. 





30 











Fabricación de un sensor luminoso 


Puedes convertir el sensor de temperatura ” 
en un sensor luminoso si sustituyes la 
resistencia térmica por una LDR. Una LDR es 
una resistencia dependiente de la luz. Es un 
componente electrónico que permite que 
por su interior fluyan cantidades variables de 
corriente eléctrica dependiendo de la luz 

que recibe. 

En la página opuesta tienes un programa 
para el sensor luminoso. También debes 
añadir la rutina de gráficos de las páginas 
46-47. . 





Cómo fabricar el sensor 


Debajo puedes ver cómo debes quitar la resistencia y fabrícalo siguiendo las | 
resistencia térmica y soldar una LDR en su instrucciones que se dan para el sensor de | 
lugar. Si quieres fabricar un sensor luminoso temperatura en las páginas 24-25. 


nuevo compra otra clavija y otra 


1 Resistencia térmica 


AAA 


>> Junturas soldadas 


an a Dobla la 
cinta 





Para soltar la resistencia térmica, coloca el Suelda la LDR en lugar de la resistencia 
soldador caliente junto a la juntura entre la térmica y cubre de cinta aislante las nuevas 
resistencia y el cable. Al fundirse el estaño junturas. 


tira de la patilla de la resistencia. 





Cartulina dura 
de color oscuro 


Capta una zona__W 7 


reducida 
Una LDR capta la luz que tiene alrededor. El La longitud del tubo determina el tamaño de 
sensor luminoso es más útil si sólo capta la la zona que el sensor luminoso «lee». 
luz en la dirección que tú apuntes. Para Cuanto más largo sea el tubo menor será 
lograr esto pega un tubo de cartulina oscura esta área por lo que el sensor será más 
alrededor de la LDR. sensible. 








Programa para el sensor luminoso 


Para usar el sensor luminoso introduce las líneas inferiores y añade la rutina de gráficos 
de tu computadora (ver páginas 46-47). 


"OEM TO El DS10 
20 LET T$="INTENSIDAD DE LUZ":LET Y$="MAX" 
30 LET X$="TIEMPO":LET M$=" ":GOSUB 2000 
40 LET X=0:LET N=0 
50 GOSUB 140 ] 
60 LET X=X+DX-LET Y=LL La computadora visualiza un 


70 GOSUB 2200 gráfico de las variaciones de 
80 FOR T=1 TO FI.NEXT 1 Le lc 


90 IF X<1000 THEN GOTO 50 
100 LET M$="APRIETA UNA TECLA":GOSUB 2400 
* 110 GETI$ 
120 IF 1$=" “ THEN GOTO 110 
130 GOTO 20 
* 140 LET Ll=1000-4*PEEK (54279) 
150 RETURN 








1 Cosas que hacer 








( y 

í ' 22 
L A 
PUE 





Y) Apunta el sensor a fuentes luminosas Si apuntas el sensor hacia una ventana el 
diferentes y usa el gráfico para comparar su gráfico mostrará cuándo pasa una persona 
intensidad. ya que ésta bloquea la luz durante un 

instante. 


3 





Usa el sensor para grabar los cambios Mueve el sensor por una pantalla de TV y 
luminosos de una habitación durante un día observa los cambios que obtienes en el 

de verano y un día de invierno. Tienes que gráfico. 

hacer que la computadora trace el gráfico 

muy lentamente incrementando el valor de ss 31 


FT en la línea 10 del programa. 



















Almacenamiento de información 


En esta parte del libro encontrarás También puedes usarlo para guardar un 
programas para hacer que tu computadora archivo de una colección o de un hobby, 
almacene y analice información que como puede ser el de datos de aviones. 
obtengas en experimentos o encuestas. El listado del programa está en las 

El programa que se describe en las páginas 35-36. Debajo tienes algunos 
páginas siguientes es una base de datos. detalles sobre el funcionamiento de una 
Permite que almacenes resultados de una base de datos. 


encuesta o de un experimento. 


Sobre la base de datos 


El programa base de datos almacena información en archivos (files). Un archivo es como una 
página de una agenda. Está dividido en cuatro «columnas» en las que se almacena diferente 


información. 
G C G e | Título 
MDX MS vel ML Dato introducido Archivo 
PLA J 
nl (q al MATT 
ARCHWO DE COLECC/ Op S S fa p 


DE Rocg 
WONBRE ZN S 
FECHA 
RO Lacie] Se Eo 


OvE CcoNn7, Y 
AMI O 


3/1/87 | cuarzo 
FELDES 470 

























ARCRIVO 






NOMBRE 
BDE/IW6 
7Oo7 





PAS 











ARENISCL 





5/2/82 |. eN 


(1/10/g4 | FELDES paro 
y ) ¡ CUARZO 
SDV/ISTO| NEGRO 2MICA 

E ROO 7/S5/P5 | PIRITA 


Bl ANCO 
ÁFVERL 
WEGRO 

ÁDENTRO 


WEGRO 
















10/3/95 CALCEDO Mg 





Das a cada columna un título. Luego archivo con varios datos puede buscar en 
introduces los datos dando a la su interior alguna información en particular, 
computadora información para colocar en como puede ser las piedras que contengan 
cada columna. el mineral calcita o los aviones que tengan 


32 Una vez que la computadora tiene un cuatro motores jet. 


a 


a Es A 


y 
' 
| 





Uso de base de datos 


Estas son algunas recomendaciones para ejecutar el programa base de datos. Cuando hayas 
introducido un archivo grábalo en cinta para no perderlo al apagar la computadora o al 
volver a ejecutar el programa. Puedes hacer tantos archivos como quieras pero sólo podrás 


cargar y usar uno cada vez. 


| 1 El menú 


MENU PRINCIPAL 


CARGAR ARCHIVO. 
CREAR NUEVO ARCHIVO 
INTRODUCIR DATOS 
VER DATOS 

CAMBIAR DATOS 
GRABAR ARCHIVO 
BUSCAR ARCHIVO 


LIGE UNA OPCION 


Ñ 
2. 
3, 
4, 
5, 
6. 
7. 
E 

' 


Cuando ejecutas el programa la 
computadora visualiza un «menú» que 
contiene todas las funciones que puede 
llevar a cabo. Para escoger una función 
escribes su número y aprietas RETURN. 
Cuando estés usando el programa puedes 
volver al menú apretando RETURN. 


3 Crear un nuevo archivo 


INTRODUCE LOS TITULOS 
TITULO 1 

NOMBRE 

TITULO 2 

COLOR 


La opción 2 es para crear un nuevo archivo. 
Empiezas por dar a la computadora los 
títulos de las cuatro columnas. Cada uno de 
ellos no debe sobrepasar las diez letras o 
espacios, por lo que quizás tengas que 
abreviarlos. 











5 Ver los datos 


VER DATOS 

AHORA EN SERIE DE DATOS 2 
NOMBRE CRETA 
COLOR BLANCO 
FECHA DE LOCALIZACION 9/1/82 
MINERAL CALCITA 


La opción 4 te permite observar una a una 
todas las series de datos del archivo. Para 
avanzar a la siguiente serie de datos aprieta 
la barra espaciadora. 


%) Cargar un archivo | 
CARGAR ARCHIVO aa 
A NOMBRE DEL ARCHIVO? PIEDRAS 
APRIETA PLAY EN EL CASSETTE 


Tu computadora 
visualizará un mensaje 
similar a éste. 





Si quieres ver un archivo que ya tienes 
creado y almacenado en cinta elige la 
opción 1 para cargarla en la computadora. 
Debes darle a la computadora el nombre 
del archivo y después apretar PLAY en el 
cassette. 














introducir datos 


4 INTRODUCE DATO 
AHORA EN SERIE DE 
DATOS 2 









pero no las separes 
con comas o punto 
y coma. 


NOMBRE 
7ARENISCA 


COLOR 
-2ROJO/AMARILLO 












Para introducir datos en un archivo elige 
la opción 3. 

La computadora visualiza los títulos de las 
columnas una a una y pide información para 
introducir en ellas. 


f 6 Cambiar datos 


CAMBIAR DATOS 
AHORA EN SERIE DE DATOS 2 


NOMBRE 
2CRETA 
COLOR 
- 1BLANCO/AMARILLO 





Puedes cambiar los datos que ves 

apretando RETURN para volver al menú y 
seleccionando la opción 5. Esto te permite 

volver a introducir una serie de datos 

completa. 33 





34 


Si te interesan las plantas o 


Te 0 Grabar el archivo 





eee 
INOMBREMELARCAI O o qee ea ad ae q 
PIEDRAS | diferente en tu 
APRIETA RECORD Y PLAY 
NEU ASS (aunque tienes 
O oie cti a 


Es aconsejable grabar cada archivo nada 
más completarlo. Si no, puede que te olvides 
y lo pierdas al volver a ejecutar el programa 
o al apagar la computadora. 


83 Buscar 


1. La opción 7 hace que la computadora 
busque información en los archivos. A la 
derecha puedes ver cómo decir a la 
computadora qué información buscar. 


2. También debes indicarle a la 
computadora qué visualizar cuando 
encuentre la información. Por ejemplo, si 
está buscando motores de tres jet, debes 
decirle si quieres que visualice el tipo de 
avión, la compañía para la que vuelan o su 
velocidad máxima —o todo junto. 


3. Cuando la computadora ha buscado en 
los archivos visualiza la información por 
series de datos. Debes apretar la barra 
espaciadora para pasar de una serie de 
datos a otra. 










O O Ele mensa 
GRABAR ARCHIVO. puedeaparecer 


computadora o ni 
siquiera aparecer 





Una base de datos 





Asegúrate de que la cinta está 
en el punto donde quieres 
empezar a grabar. 









Para grabar un archivo introduces un 
nombre y aprietas RECORD y PLAY en el 
cassette. Escribe el nombre de los archivos 
en una etiqueta no vaya a ser que te olvides. 


















BUSCAR ARCHIVO 


1. NOMBRE 
2. MOTORES 

- 3. COMPAÑIA AEREA 
4 VELOCIDAD MAXIMA 


DATO BUSCADO 
MOTORES? DOS JET 


INFO REQUERIDA 







En primer lugar 
introduce el número de 
columna en el que se 
halla la información. 
Luego lo que busques 
en la computadora. 


















Y <-_ Apricta RETURN para 
saltarte una columna. 





MOTOR o | 
SERIE DE DATOS 3 a | 


APRIETA BARRA ESPACIADORA - 


BUSQUEDA FINALIZADA 
- 1 SERIE DE DATOS LOCALIZADOS 





Crea una base de datos con 


las setas podrías crear una 
base de datos con sus 
nombres comunes, la especie 
a la que pertenecen, dónde y 
cuándo los viste. 


alimenticia puede servirte 
para seguir una dieta 
equilibrada. Puedes grabar 
las vitaminas, proteínas y 
grasas que tiene cada 
alimento. 


los años de los coches, las 
marcas, el número de 
ocupantes y el sexo del 
conductor. Encontrarás 
conclusiones como que las 
mujeres conducen coches 


más nuevos que los hombres. 


Programa base de datos 


Este es el programa para la base de datos.  corregirlas antes de apretar RETURN. No te 
Las líneas son largas y complicadas por lo olvides de hacer las conversiones necesarias 
que debes copiarlas con mucho cuidado y para tu computadora (ver páginas 42-45). 


10 GOSUB 830 
20 LET T$="MENU PRINCIPAL":GOSUB 710 
30 PRINT.PRINT “1. CARGAR ARCHIVO": 
PRINT “2. CREAR NUEVO ARCHIVO” 
40 PRINT “3. INTRODUCIR DATOS”:PRINT “4. VER DATOS” 
50 PRINT “5. CAMBIAR DATOS”:PRINT “6. GRABAR ARCHIVO" 
60 PRINT “7. BUSCAR ARCHIVO”.PRINT:PRINT “ELIGE UNA OPCION" 
70 GOSUB 750:LET CH=KP-48 
80 IF CH<1 OR CH>ML THEN GOTO 20 
* 90 ON CH GOSUB 500,780,110,460,160,500,180 
100 GOTO 20 
110 IF ULTIMO=NR-2 THEN RETURN 
120 LET ULTIMO=ULTIMO+1 
130 LET T$="INTRODUCE DATO”:GOSUB 710 
140 LET TP= ULTIMO:GOSUB 740 
150 LET IP=ULTIMO:GOSUB 680: RETURN 
160 LET T$="CAMBIAR DE DATOS”:GOSUB 710:GOSUB 740 
170 LET IP=TP.GOSUB 680:RETURN 
180 LET T$="BUSCAR DATOS”:GOSUB 710 
190 FOR I=1 TO LP.LET P(1)=0.LET R$((NR—1)+LP-+I)=" * 
200 PRINT TAB(1).1.TAB(6):R$(1).NEXT | 
210 PRINT:PRINT “DATO BUSCADO.” 
220 LET A$=" "INPUT A$:IF A$<"1" OR A$>"4" THEN GOTO 250 
* 230 PRINT R$ (VAL(AS))."":«INPUT WS 
240 LET RS(INR—1)+LP+VAL(AS))=W$+" "IF W$>" ” THEN GOTO 220 
250 PRINT “INFO REQUERIDA;” 
260 LET A$=" "INPUT A$.IF A$<"1" OR A$+F “4” THEN GOTO 280 
270 LET P(VAL(A$))=1.GOTO 260 
280 LET T$="BUSCANDO:"«GOSUB 710 
290 FOR l=1 TO 4 
* 300 IF R$((NR—1)+LP+1)>" " THEN PRINT TAB (0),R$(1),TAB(12).R$((NR—1)+LP+!) 
310 NEX l-PRINT.PRINT 
320 LET C=0:FOR |=1 TO ULTIMO:LET FL=0 
330 FOR J=1 TO LP 
340 LET S$=R$(HLP+J) 
350 LET FS=R$((NR—1)*LP+J) 
360 IF E$=" " THEN GOTO 420 
370 LET F=0.LET LF=LEN(F$):LET LS=(LEN(S$)-LF)+1 
380 FOR K=1 TO LS 










El número de series de datos 
que puedes introducir en un 
archivo depende de la : 
memoria de tu computadora. 
Cuando esté llena la 
computadora no admitirá 
más datos. 


O 


El listado continúa en la página siguiente. 
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* 


* 


* 


* 


390 


IF MIDS(S$,K,LF)=F$ THEN LET F=1:LET K=LS 
k . 


400 NEXT 


410 
420 
430 
440 
490 
460 
470 
480 
490 
900 
910 
920 
930 
040 
900 
060 
970 
980 
090 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
110 
120 
730 
140 
750 
760 
170 
780 
790 
800 
810 
820 
830 
840 
800 


IF F=0 THEN LET FL=1:LET J=LP 

NEXT J:lF FL=0 THEN GOSUB 620 

NEXT | 

PRINT:PRINT “BUSQUEDA FINALIZADA”:PRINT “LOCALIZADO ”;C;” VECES” 
GOSUB 750:RETURN 

LET TP=1:LET T$="VER DATOS" 

G0SUB 710.G0SUB 740:G0SUB 650:GOSUB 750 

IF KP=32 AND TP<ULTIMO THEN LET TP=TP+1:GOTO 470 

RETURN 

LET T$="GRABAR ARCHIVO”:IF CH=1 THEN LET T$="CARGAR ARCHIVO” 
GOSUB 710:PRINT “NOMBRE DEL ARCHIVO:”;:INPUT F$ 

IF CH=6 THEN LET RS((ULTIMO+1)+LP+1)="».*" 

IF CH=6 THEN OPEN 1,1,1,F$ 

IF CH=1 THEN OPEN 1,1,0,F$ 

LET |=1 

IF CH=6 THEN PRINTA1,R$(1) 

IF. CH=1 THEN INPUT1,R$(1) 

IF. R$()<>"e" THEN LET l=l+1:G0T0 560 


CLOSE 1 

IF CH=1 THEN LET ULTIMO=INT(1/LP)—1 

RETURN 

PRINT “SERIE DE DATOS ”;I;:LET C=C+1:FOR K=1 TO LP 


IF. P(K)=1 THEN PRINT TAB(12),R$(1*LP+K) 

NEXT K-PRINT:PRINT “APRIETA BARRA ESPACIADORA”:PRINT:GOSUB 750:RETURN 
FOR K=1 TO LP 

PRINT TAB(1):RS(K);TAB(15)¡R$(TP*LP+K) 

NEXT K:RETURN 

FOR 151 TO LP:PRINT R$) 

LET A$=" "INPUT A$:IF A$=" ” THEN LET A$="-" 

LET RS(IP+LP+I)=A$+" "¿NEXT I.RETURN 

CLS:PRINT:PRINT 

PRINT “BASE DE DATOS”:PRINT “——————":PRINT 

PRINT T$:PRINT:RETURN 

1 is "AHORA EN SERIE DE DATOS ”;TP.PRINT:RETURN 
GET | 

IF-I$=" ” THEN GOTO 750 

LET KP=ASC(1$):RETURN 

LET T$="CREAR NUEVO ARCHIVO”:GOSUB 710 

PRINT “INTRODUCE LOS TITULOS”:PRINT:FOR |=1 TO LP 
PRINT “TITULO “¿INPUT AS 

IF LEN(A$)>10 THEN PRINT “DEMASIADO LARGO”:GOTO 800 
LET R$(1)=A$.NEXT 1.GOSUB 850:RETURN 

LET NR=30:LET LP=4.LET ML=7 

DIM R$(NR*LP),P(LP) 

LET ULTIMO=0:LET TP=1:RETURN 





Observación de los resultados 


Los experimentos y las encuestas suelen 
producir grandes cantidades de cifras. 

Para poder entender qué significan todas 
estas cifras, los científicos las resumen y 


Programa para hallar el valor promedio 


* 10 CLS 
20 LET LI=100 
30 DIM X(LT+1) 
40 LET N=1 
50 PRINT “VALOR ”¿N;” “¡INPUT A$ 
60 IF A$="E” THEN GOTO 100 
70 LET X(N)=VAL(AS$):LET N=N+1 
80 IF N<LT+1 THEN GOTO 50 
90 PRINT “NO HAY MAS ESPACIO" 
100 PRINT “FIN DE LOS DATOS” 
110 LET N=N—1 
120 GOSUB 150:G0SUB 210 
130 GOSUB 250:G0SUB 290 
140 STOP 
150 FOR l=1 TO N—1:LET LW=X(I):LET P= 
160 FOR J=I+1 TO N 
170 IF X(J)<LW THEN LET LW=X(J):LET P=J 
180 NEXT J 
190 LET T=X(1):LET X(1)=X(P):LET X(P)=T 
200 NEXT I:LET X(N+1)=X(N)+1:RETURN 
210 LET T=0:FOR 51 TO N 
220 LET T=T1+X(1):NEXT | 
230 PRINT “MEDIA =“,T/N 
240 RETURN 
250 LET MX=N/2:LET MD=X(INT(MX+1)) 


las generalizan de varias formas. Este 
programa y el de la página siguiente 
sirven para hacer esto. 









A los investigadores suele 
interesarles el valor 
promedio ya que éste es el 
más significativo de toda la 
información con la que 
trabajan. 


Por ejemplo, si quieres hallar 
el número promedio de 
miembros de una familia te 
interesará más la moda que la 
media, ya que ésta puede 
ofrecerte un número como 
3,5 personas. 


260 IF MX=INT(MX) THEN LET MD=(X(MX)+X(MX+1))/2 


270 PRINT “MEDIANA = “¿MD 

280 RETURN 

290 LET SP=1:LET LP=1.LET MD=Ú0 

300 LET P=-1 

310 LET P=P+1 

320 IF X(SP)=X(SP+P) THEN GOTO 310 

330 IF P>LP THEN LET MD=X(SP):LET LP=P 
340 LET SP=8SP+P 

350 IF SP<N+1 THEN GOTO 300 

360 IF MD>0 THEN PRINT “MODA — = “¿MD 
3/70 RETURN 


Un valor promedio es una forma de 
generalizar cifras. Por ejemplo, puedes oír 
hablar del promedio de litros de lluvia 
caídos durante un día, o del promedio de 
beneficios de una empresa. 

En realidad existen tres tipos de 
promedios, —la media, la mediana y la 
moda— que pueden ofrecer tres valores 
diferentes trabajando con un mismo grupo 
de cifras. 











Para usar el programa introduce varias 
cifras una a una, apretando RETURN 
después de cada una. Finalmente 
introduce una E para indicar que has 
terminado. 


Este programa calcula estos tres 

promedios, por lo que podrás compararlos. 
La media se halla sumando todas las cifras y 
dividiendo el resultado entre el número de 
cifras. La mediana es el valor obtenido 
extrayendo la cifra media de la lista de 
cifras colocadas por orden de tamaño. La 
moda es la cifra que se repite más veces. 
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Programa correlación 


Una correlación consiste en descubrir si 
dos series de mediciones están p 
relacionadas entre sí. Por ejemplo, ¿está 
relacionada la cifra de crecimiento de una 
planta con la cantidad de luz que recibe? 
¿Crecen las orejas de las personas al 
envejecer? 

El programa inferior hace que tu 
computadora compruebe mediciones para 
ver si están relacionadas. En la página 
opuesta tienes algunas ideas para tomar 
mediciones y correlaciones. 
















Introduce las mediciones por 


* 10 Cs pares, por ejemplo, la edad de 
20 DIM A(100,2) una persona y el tamaño de sus 
30 PRINT “PROGRAMA CORRELACION" a 
40 PRINT 


90 PRINT “INTRODUCE LOS NUMEROS POR PARES” 
60 PRINT “INTRODUCE UNA E” 

70 PRINT “CUANDO HAYAS TERMINADO” 
80 LET S=0:LET F=0:LET FS=0.LET FF=0 
90 LET SS=0:LET N=0 









100 LET N=N+1 Mk 
110 PRINT 
120 INPUT “PRIMERO -*:A$ El programa te dice si los E! EN 
130 IF A$="E" THEN GOTO 190 grupos de mediciones EÉNXD 


están correlacionados 
positiva o inversamente. En 
la página opuesta 
encontrarás qué significa 
esto. 


140 LET A(N,1)=VAL(A$) 

150 INPUT “SEGUNDO -”¡A(N,2) 

160 LET F=F+A(N,1) 

170 LET S=S+A(N,2) 

180 GOTO 100 (e) 

190 LET N=N—1:LET MF=F/N/LET MS=S/N <= 
F. 
SS 





200 FOR Y=1 TO N 


210 LET FS=FS+((A(Y.1)-MF)=(A(Y,2)-MS]) uy 
220 LET FFSFF+((A(Y,1)-MF)+[(A(Y,1)-MF)] ya 
230 LET SS=SS+((A(Y,2)-MS)*(A(Y,2)-MS)) E HA 


240 NEXT Y 

250 LET R=FS/SOR(SS+*FF) 

260 LET D$="POSITIVAMENTE" 

270 IF R<O0 THEN LET D$="INVERSAMENTE” | | 
280 LET C$="RAZONABLEMENTE" El programa también 


290 IF ABS(R)>0.7 THEN LET C$=" FUERTEMENTE” del resultado. Este 
300 IF ABS(R)<<0.3 THEN LET C$=" POBREMENTE” depende de cuántos 
310 LET E$="RELATIVA” pares de mediciones 


introduces. 


320 IF N<10 THEN LET E$="POCA” 

330 IF N>60 THEN LET E$="MUCHA” 

340 PRINT “LOS VALORES ESTAN ”:C$:PRINT D$;” CORRELACIONADOS.” 
390 PRINT “YA QUE HAY "¡N;"PARES” 

360 PRINT * PUEDES TENER “¿ES 

3/0 PRINT “CONFIANZA EN EL RESULTADO” 

380 STOP 





dá 


Más sobre correlaciones 













Si tus orejas se hacen más 
pequeñas según envejeces, el 
tamaño de las orejas y la edad 
están inversamente 
relacionadas. 


1 Si tus orejas crecen según vas 
envejeciendo quiere decir 
que el tamaño de las orejas 
y la edad están positivamente 

correlacionados. 





Las mediciones pueden estar o positiva o Las mediciones están inversamente 


inversamente correlacionadas. Silo están [| | relacionadas cuando un grupo de cifras 

positivamente quiere decir que al ¡ | aumenta al disminuir el otro. Haz una 

aumentar un grupo de cifras también lo | | investigación sobre la relación edad, 

hace el otro. tamaño de las orejas y estudia si están 
correlacionadas. 


Correlaciones para experimentar 


Aquí tienes algunas ideas sobre cosas que causadas por un tercer factor, o la 

puedes medir para averiguar si están correlación puede ser una coincidencia. 
correlacionadas. Si dos cosas están Puedes, por ejemplo, encontrar una 
correlacionadas suele querer decir que una correlación entre la altura de varias 

es causada por la otra, pero no personas y sus resultados en un examen de 
necesariamente. Ambas pueden ser francés. 














Investiga a qué altura vuelan 
diferentes cometas (puedes 
hacerte una idea aproximada 
midiendo el hilo que sueltas). 
Luego pésalas para ver si el peso 
de una cometa está relacionado 
con lo alto que vuela. 


Haz una señal en el 
hilo mientras la 
cometa esté en el 
aire. Luego mídela 
con la cinta métrica. 


¿Está relacionada la altura de una 
persona con lo que puede beber? 
Mide a tus amigos y haz un 
concurso de beber. 


En los periódicos puedes 
encontrar grandes cantidades de 
información que puedes probar a 
correlacionar. Por ejemplo, 
puedes estudiar la relación entre 
el tipo de cambio y el tipo de 
interés, o la temperatura diaria. 
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¿Probable o improbable”? 


Antes de que un investigador acepte el + mismas posibilidades de que caiga sobre 

resultado de un experimento o de una cualquiera de sus seis caras). 

encuesta como prueba de una teoría, tiene Normalmente al tirar un dado la 

que averiguar qué posibilidad existe de posibilidad de sacar un seis es de una 

que puedan obtenerse dichos resultados entre seis. S1 pruebas a tirar el dado 12 

por suerte. El programa inferior es un veces debes esperar que salgan dos 

ejemplo de una prueba estadística que seises. Digamos que sacas cinco selses, 

comprueba la posibilidad de que se dé un ¿demuestra esto que el dado está 

determinado resultado. descompensado?, ¿o es más lógico pensar que 
Por ejemplo, imagínate que estás el resultado se haya dado por casualidad? 

comprobando si un dado que has Ejecuta el programa para averiguarlo, 

comprado está bien equilibrado (es decir, 

que hay las 


Programa de casualidades 


- 10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


CLS 

PRINT-PRINT 

PRINT “CUANTOS INTENTOS”INPUT N 

PRINT “CUANTAS VECES" 

PRINT “ESPERAS QUE SALGA" 

PRINT “EL RESULTADO"INPUT E 

PRINT “CUANTAS VECES" 

PRINT “SALIO EL RESULTADO”INPUT R 

IF E>=N OR E<=0 OR R>N OR R<0 THEN PRINT “REVISA!".GOTO 30 
IF R<E THEN LET Tl=R+1:LET Bl=-1 

IF R>=E THEN LET Tl=N+1.LET Bl=R-! 

LET P=E/N 

LET FR=P/(1—P) 

LET PP=(1-P) * N 

LET MP=04F Bl=-1 THEN LET MP=PP 

FOR l=1 TO N 

LET PN=((N-1+1)/1)=PP+FR 

LET PP=PN 

IF 1<TL AND I>BL THEN LET MP=MP+PN 

NEXT | 

PRINT.PRINT 

LET M$="MAS”IF BL=-1 THEN LET M$="MENOS” 
PRINT “LA POSIBILIDAD DE UN RESULTADO” 

PRINT “DE “¡R;" (0 ",M$;") ES" 

IF. MP=0 THEN PRINT “DEMASIADO PEQUEÑA”.GOTO 280 
LET CH=1/MP.GOSUB 290 


270 PRINT “1 IN “,CH:¿MS 
280 PRINT:STOP 
290 LET M$="" 


300 
310 


IF CH>1E6 THEN LET CH=CH/1E6.LET M$=" MILLON"+M$.GOTO 300 
IF CH>1E3 THEN LET CH=CH/1E3:LET M$=" MIL"+M$:GOTO 310 


320 LET CH=INT(10*CH+0.5)/10 


390 





RETURN 





Ejecutar el programa 


CUANTAS VECES HICISTE 
EL EXPERIMENTO 


Má 


Primero introduce el número de veces que 
tiraste el dado. 


LA POSIBILIDAD DE UN RESULTADO 
DE 5 (0 MAS) ES 
1 10-275 


descompensado. 


Experimento con cartas 


Puedes usar el programa para comprobar los 
resultados de cualquier experimento del que 
conoces la probabilidad del fenómeno que 
estás estudiando. Por ejemplo, si un amigo 
elige una carta de la baraja, tus posibilidades 
de acertar de qué palo es, son de uno en 















Usando la información que has introducido, la 
computadora calcula que la posibilidad de sacar cinco 
(o más) seises es de 1 en 27. Por tanto el resultado es 
muy improbable y es posible que el dado esté 







CUANTAS VECES 
ESPERAS QUE SALGA 
EL RESULTADO : 


22 
CUANTAS VECES 

- SALIO EL RESULTADO 
Ús 





A continuación dile a la computadora 
cuántas veces esperabas que saliese el 
resultado (un seis) y cuántas veces salió 
realmente. 













Los científicos normalmente 
buscan posibilidades de 
obtener un resultado menor 
que 1 en 20 (es decir, 1 en 30 
y 1 en 40) antes de aceptar 
que el resultado no salía por 
casualidad. 















cuatro. Si lo realizas 20 veces debes esperar 
obtener cinco aciertos. ¿Cuáles son tus 
posibilidades de acertar nueve veces el palo, 
o doce veces? Usa el programa para 
averiguarlo. 
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Conversiones para los programas 


En esta página y en las siguientes tienes 
unas líneas de conversión que te 
permitirán adaptar los programas a las 
distintas computadoras. Para buscar una 
línea de conversión busca en la sección 


BBC 


Página 11 

Programa de pulsaciones 

390 LET I5=INKEYS$(0) 

500 LET FT=22000:LET PT=2000 


Página 15 
Programa simulador de trayectos 


En todo el programa debes 
sustituir rnd por RND(]) tal y 
como se muestra aquí. 


650 LET BJ=SB+INT 
(DB*(RND(1)+RND(1))*0.5) 





Página 19 

Programa del viaje en autobú 

50 LET BJ=SB+INT (DB* 
(RND(1)+RND(1))*0.5) 


Cambios para esperar 
50 LET WI=INT(RND(1)*FB) 


Página 21 

Dirigir una línea aérea 

820 LET PS=POS-—28 

Página 26 

Programa para la resistencia térmica 

1000 LET V=1.8*ADVAL(1)/65520 

1010 LET R=V/(5—V) 

1020 LET T=1/((LN(R/K2)) 
-/K1+1/273)-273 


Página 28 

Líneas de gráficos 

30 LET FT=100:LET DX=5 
140 LET I$=INKEY$(0) 


Página 31 

Programa para el sensor luminoso 

10 LET FT=100:LET DX=5 

110 I5$=INKEY$(0) 

140 LET LL=1000—INT(ADVAL(1)/66) 


Página 35 

Programa base de datos 

530 IF CH=6 THEN X=O0PENOUT F$ 
540 IF CH=1 THEN X=OPENIN FS 
560 |F CH=6 THEN PRINT Y X,R$(!) 
570 IF CH=1 THEN INPUTY X,R$(1) 
590 CLOSE 4 X 

750 LET I$=INKEY$(0) 










para tu computadora el número de página 
y el nombre del programa. 51 no hay 
conversión puedes copiar la línea tal y 
como viene en el programa. 


Electron 


Página 11 

Programa de pulsaciones 

390 LET I$=INKEY$(0) 

500 LET FT=7750:LET PT=1000 


Página 15 
Programa simulador de trayectos 


En todo el programa sustituye 
rnd por RND(1) tal y como se 
muestra aquí. 


650 LET BJ=SB+INT 
(DB*(RND(1)+RND(1))*0.5) 


Página 19 

Programa del viaje en autobús 
50 LET BJ=SB+INT (DB* 
(RND(1)+RND(1))*0.5) 


Cambios para esperar 
50 LET WI=INT(RND(1)*FB) 


Página 21 
Dirigir una línea aérea 
820 LET PS=POS-28 


Página 35 

Programa base de datos 

530 IF CH=6 THEN X=0OPENOUT F$ 
540 IF CH=1 THEN X=OPENIN F$ 
560 |F CH=6 THEN PRINT XX,R$(1l) 
9570 IF CH=1 THEN INPUTY X,R$(l) 
590 CLOSE +4 X 

750 LET I$=INKEY$(0) 


VIC 20 


Página 7 
Programa para jugar a cara o cruz 
10 PRINT CHRS$(147) 


Página 8 
Pelota que rebota 
10 PRINT CHRS$(147):PRINT 


Página 11 
Programa de pulsaciones 
420 PRINT CHR$(147) 
440 POKE 36878,15:POKE 36876,200 
442 FOR W=1 TO 100:NEXT W 
444 POKE 36876,0 
480 LET C(1)=2:LET C(2)=7: 
LET C(3)=5 
500 LET FT=9000:LET PT=1000 


VIC 20, continuación 


Página 15 
Programa simulador de trayectos 
10 PRINT CHR$(147) 


En todo el programa sustituye 
rnd por RND(1) tal y como se 
muestra aquí. 


650 LET BJ=SB+INT 
(DB*(RND(1)+RND(1))*0.5) 


Página 19 
Programa del viaje en autobús 
50 LET BJ=SB+INT (DB* 
(RND(1)+RND(1))*0.5) 
90 PRINT CHR$(147) 
140 FOR J=1 TO F(N)/2:PRINT 
** "NEXT J 


Cambios para esperar 
50 LET WT=INT(RND(1)*FB) 


Página 21 

Dirigir una línea aérea 
820 LET PS=POS(0)-13 
880 PRINT CHR$(147) 


Página 26 
Programa para la resistencia térmica 
1000 LET TR=1.84*PEEK(36872) 


Página 28 
Líneas de gráficos 
30 LET FT=10:LET DX=20 


Página 31 

Programa para el sensor luminoso 
10 LET FT=10:LET DX=20 ! 
140 LET LL=1000-—4*PEEK(36872) 


Página 35 
Programa base de datos 
710 PRINT CHR$(147):PRINT:PRINT 


Página 37 
Programa para hallar el valor promedio 
10 PRINT CHR$(147) 


Página 38 
Programa correlación 
10 PRINT CHR$(147) 


Página 40 
¿Probable o improbable? 
10 PRINT CHR$(147) 











Commodore 64 


Página 7 
Programa para jugar a cara o cruz 
10 PRINT CHR$(147) 


Página 8 
Pelota que bota 
10 PRINT CHR$(147):PRINT 


Página 11 

Programa de pulsaciones 

420 PRINT CHR$(147) 

440 POKE 54296,15:POKE 54277,0 


442 POKE 54278,240:POKE 54276,33 


444 POKE 54272,75:POKE 54273,39 

446 FOR W=1 TO 100:NEXT W 

448 POKE 54276,32:POKE 54296,0 

480 LET C(1)=2:LET C(2)=7:LET 
C(8)=5 


Página 15 
Programa simulador de trayectos 
10 PRINT CHR$(147) 


En todo el programa sustituye rnd 
por RND(1) tal y como se muestra. 


650 LET BJ=SB+INT (DB* 
(RND(1)+RND(1))*0.5) 


Página 19 

Programa del viaje en autobús 

50 LET BJ=SB+INT (DB+ 
(RND(1)+RND(1))*0.5) 

90 PRINT CHR$(147) 


Cambios para esperar 
50 LET WT=INT(RND(1)*FB) 


Página 21 
Dirigir una línea aérea 
880 PRINT CHR$(147) 


Página 35 
Programa base de datos 
710 PRINT CHR$(147):PRINT:PRINT 


Página 37 
Programa para hallar el valor promedio 
10 PRINT CHR$(147) 


. Página 38 


Programa correlación 
10 PRINT CHR$(147) 


Página 40 
¿Probable o improbable? 
10 PRINT CHR$(147) 
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Apple 


Página 7 
Programa para jugar a cara o cruz 
10 H 


Página 8 
Pelota que bota 
10 HOME:PRINT 


Página 11 
Programa de pulsaciones 
390 LET I$="”:IF PEEK(-16384)>127 
THEN GET I$ 
420 HOME 
480 LET C(1)=43:LET C(2)=46: LET C(3)=42 
500 LET FT=9700:LET PT=1000 
En todo el pro- 
grama cambia rnd 
Página 15 por RND(1). Ej.: 
Programa simulador de trayectos PS 
10 HOME 
650 LET BJ=SB+INT (DB+(RND(1) 
+RND(1))*0.5) 


Página 19 

Programa del viaje en autobús 

50 LET BJ=SB+INT 
(DB+(RND(1)+RND(1))*0.5) 

90 HOME 

120 PRINT TAB(1);¡B+N;TAB(5);* >; 


Cambios para esperar 

50 LET WT=INT(RND(1)*FB) 

120 PRINT TAB(1)¡B+N;*”; 
B+N+1;* >; 


Página 21 
Dirigir una línea aérea 
880 HOME 


Página 35 

Programa base de datos 

530 IF CH=6 THEN PRINT CHR$(4); 
-“OPEN”+FS$:PRINT CHR$(4); 
“WRITE”+FS 

540 IF CH=1 THEN PRINT CHR$(4); 
“OPEN”+F$:PRINT CHR$(4); 
“READ”+F$ 

560 IF CH=6 THEN PRINT R$(!) 

570 IF CH=1 THEN INPUT R$(l) 

590 PRINT CHR$(4);“CLOSE”+F$ 

710 HOME:PRINT:PRINT 

750 I$="":IF PEEK(-16384)>127 
THEN GET I$ 


Página 37 
Programa para hallar el valor promedia 
10 HOME 


Página 38 
Programa correlación 
10 HOME 


Página 40 
¿Probable o improbable? 
10 HOME 


TRS-80 


Página 7 
Programa para jugar a cara o cruz 
70 LET X=RND(0) 


Página 11 

Programa de pulsaciones 

390 LET I$=INKEYS$ 

440 SOUND 100,1 

480 LET C(1)=4:LET C(2)=2:LET 
C(3)=1 

500 LET FT=8700:LET PT=1000 


Página 15 
Programa simulador de trayectos 


En todo el programa 
sustituye rnd por RND(O0) Ej. 


650 LET BJ=SB+INT 
(DB*(RND(0)+RND(0))*0.5) 


Página 19 
Programa del viaje en autobús 
50 LET BJ=SB+INT (DB*(RND(0) 
+RND(0))*0.5) 
135 IF N=15 THEN IF INKEY$= 
“” THEN GOTO 135 


Añade esta línea. 
Cambios para esperar 
50 LET WT=INT(RND(0)*FB) 
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Dirigir una línea aérea 
820 LET PS=POS(0)-24 
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Programa para la resistencia térmica 

1000 LET V=JOYSTK(0)*0.0715+0.25: 
LET R=V/(5—V) 

1010 LET T=1/((LOG(R/K2)/K1+1 
/273)-273 

1020 RETURN 
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Líneas de gráficos 
30 LET FT=30:LET DX=10 
140 LET I$=INKEYS$ 
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Programa para el sensor luminoso 
10 LET FT=30:LET DX=10 

110 LET I5=INKEYS$ 

140 LET LL=1000—16*JOYSTK(0) 
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Programa base de datos 
530 IF CH=6 THEN OPEN “O”, E-1,F$ 
540 IF CH=1 THEN OPEN “Il”, +-1,F$ 
560 IF CH=6 THEN PRINT ++ —1,R$(l) 
570 IF CH=1 THEN INPUT + -—1,R$(l) 
590 CLOSE + -1 

750 LET I5=INKEYS$ 


Letra O 










Spectrum 


Página 7 
Programa para jugar a cara o cruz 
70 LET X=RND 


En todo el programa 
sustituye rnd por RND. 
Por ejemplo, la línea 
650 debe quedar así. 
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Programa de pulsaciones 

390 LET I$=INKEYS$ 

440 BEEP 0.1,5 | 

480 LET C(1)=2:LET C(2)=6:LET C(3)=4 
500 LET FT=1950:LET PT=300 


Página 15 
Programa simulador de trayectos . 
650 LET BJ=SB+INT(DB*(RND+RND)+*0.5) 


Página 19 
Programa del viaje en autobús 
50 LET BJ=SB+INT(DB*(RND+RND)+*0.5) 





Cambios para esperar 
50 LET WT=INT(RND+*FB) 
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Dirigir una línea aérea 

810 LET MS$=P$(L) 

820 LET PS=8—PEEK(23688) 


Página 35 
Programa base de datos 
90 GOSUB 500*(CH=1)+780*(CH=2)+1 10*(CH=3)+460*(CH=4)+160+ 
(CH=5)+500*(CH=6)+180*(CH=7) 
225 PRINT A$ -“—————————— Añade esta línea. 
230 PRINT RS$(VAL(AS)( TO 10);*:”;:INPUT WS$:PRINT W$ 
265 PRINT A$ -“—————————— Añade esta línea. 
300 IF RS((NR-1)*LP+D(1)<>“ ” THEN PRINT 
TAB(O0)¡RS(I);TAB(12)¡R$((NR—1)*LP+I) 
345 IF SS(LEN(S$)-1 TO LEN(S$))=" THEN LET S$=S$( TO 
LEN(S$)-1):GOTO 345 o Dos espacios aquí. Añade 
355 IF FS(LEN(F$))=" ” AND LEN(F$)>1 THEN LET F$=F$( TO estas 
LEN(F$)-1):GOTO 355 líneas. 
357 IF F$="“"” THEN LET FS =" ” 
365 LET F$=F$+* ” 
390 IF S$(K TO K+LF-1)=F$ THEN LET F=1:LET K=LS 
515 PRINT F$ «—————————— — Añade esta línea. 
530 IF CH=6 THEN SAVE F$ DATA R$() 
540 IF CH=1 THEN LOAD F$ DATA R$() 










No copies las líneas 
550, 560, 570, 580 y 590. 


595 LET |=1 - "*————————————_—_——_——————— Añade estas líneas. 


597 IF RS$(I)(TO 2)<>“**” THEN LET |=14+1:GOTO 597 
660 PRINT TAB(1);R$(K)( TO 10);TAB(15)¡R$(TP+LP+K) 


695 PRINT AS 

750 LET [SANKEYS 

770 LET KP=CODE(I$):RETURN 
AIN di 


805 PRINT AS 
840 DIM R$(NR*LP,30):DIM P(LP) 





Añade estas líneas. 
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Programa para hallar el valor promedio | 45 
55 PRINT AS 


46 


Rutinas de gráficos 


En estas dos páginas hay versiones de*la correspondiente a tu computadora. Las 
rutina de gráficos que debes añadir al líneas son complicadas, con multitud de 
programa Pelota que rebota, al programa . números y símbolos, por lo que debes 
de pulsaciones y a los programas de la copiarlos cuidadosamente y comprobar 
Resistencia Térmica y del Sensor cada línea antes de apretar RETURN, 


Luminoso. Asegúrate de usar la versión 


Apple 

2000 HOME 

2010 FOR l=1 TO 22.VTAB(I):PRINT * P.NEXT | 

2020 FOR 51 TO 39.VTAB(23):HTAB():PRINT “—"-NEXT | 
2030 VIAB(23):HTAB(1):PRINT “0” 

2040 VTAB(1):PRINT Y$;TAB(10);T$ 

2050 VTAB(11):PRINT M$ 

2060 VTAB(24):-HTAB(34):PRINT X$; 

2070 LET DC=43:RETURN 

2200 VTAB(1):HTAB(34):PRINT N;” * 

2205 IF X<0 OR Y<0 OR X>1000 OR Y>1000 THEN RETURN 
2210 LET 0X=X/28:LET OY=Y/48 

2220 VTAB(22—0Y):-HTAB(OX+3):PRINT CHR$(DC) 

2230 RETURN Deja 13 espacios aquí 
2400 VIAB(24):HTAB(5):PRINT * Co" 

2410 VTAB(24)-HTAB(5):PRINT MS); 

2420 RETURN 


BBC y Electron 

2000 MODE 1.VDU 19,3,2;0;:COLOUR2:CLS:GCOLO,2:DC=1 
2010 MOVE 0,100:DRAW 1200,100:MOVE 50,50:DRAW 50,1000 
2020 PRINT TAB(10,1):T$;TAB(0,1).Y$;TAB(33,30).X$ 
2030 PRINT TAB(0,14).M$;TAB(0,28);"0".RETURN 

2200 IF X<0 OR Y<0 THEN RETURN 

2210 GCOLO,DC:PLOT 69,X+50,Y*0.88+100 

2220 PRINT TAB(33,1)¿N;” * 

2230 RETURN 

2400 PRINT TAB(5,30):STRING$(13,” ”): 

2410 PRINT TAB(5,30).M$; 


2420 RETURN 


Spectrum | 

2000 PAPER 0:CLS:INK 6:LET DC=2 

2010 PLOT 0,15:DRAW 255,0 

2020 PLOT 7,0:DRAW 0,175 

2030 PRINT AT 0,0:Y$;AT 0,8;T$;AT 20,0;"0" 
2040 PRINT AT 21,25;X$;AT 10,0;¡M$:RETURN 
2200 INK 6:PRINT AT 0,27;¡N;” * 

2210 IF X<0 OR Y<0 THEN RETURN 

2220 LET 0X=X/4+8:LET 0OY=Y/6.25+16 
2230 lF 0X>255 OR 0Y>175 THEN RETURN 
2240 INK DC:PLOT OX,OY:INK 6:RETURN 


2400 PRINT AT 21,5; 
2410 PRINT AT 21,5:M$:RETURN O Deja 13 espacios aquí 


TRS-80 

2000 CLS(0) 

2010 FOR |=0 TO 29:SET(1,1,2):NEXT | 

2020 FOR 120 TO 63:SET(1,28,2):NEXT | 

2030 PRINTEC 9,T$;:-PRINTE 0,Y$; 

2040 PRINTE507X$;:PRINTE 448,*0";:PRINTO 192,M$; - 

2050 LET DC=4:RETURN 

2200 IF X<0 OR Y<0 OR X>1000 OR Y>1000 THEN RETURN 
2210 SET/16.5+2,27-Y/37.1,DC) 

2220 PRINTE 28,STR$(N);” *; 

2230 RETURN 4-7 7 Deja 13 espacios aquí 
2400 PRINTO 484," ff 

2410 PRINTE 484,M$;-RETURN 


Commodore 64 


5 GOSUB 3000 o a 
2000 POKE 53281,0:POKE 53280,0 quí debes apretar las teclas E y 
2010 PRINT CHR$(158):CHR$(147) 2 Mal mismo tiempo 


2020 PRINT HMS;.FOR CT=1 TO SH-2:PRINT— * [C=] [M] * 
NEXT Aprieta las teclas G y T al 

2030 PRINT “0 d mismo tiempo 38 veces. 

2040 PRINT TAB(WS—5).XS:HM$.Y$;¡HM$;SPCIWS/5).T$ 

2050 PRINT HMS;LEFTS(CUS,(SH—3)/2):M$ 

2060 DC=2:RETURN 

2200 IF X<0 OR Y<0 OR X>1000 OR Y>1000 THEN RETURN 

2210 OX=M/XK:0Y=Y/YK 

2220 2X=INT(0X/2):ZY=INT(0Y/2) 

2230 BX=INT(0X—2X*2):BY=INT(QY—ZY+2) 

2240 0D=2 1 (2-2«BY+BX):SN=BL+2X—LC+*ZY 

2250 PN=PEEK(SN):FOR CT=0 TO 15 

2260 IF O0(CT)=PN THEN PN=00(CT OR 0D):CT=15 

2270 NEXT:POKE SN,PN:POKE SN+DM,DC 

2280 PRINT HM$;SPC(WS—5);¡STR$(N).* “RETURN «A——————Deja 13 espacios aquí 

2400 PRINT HM$;LEFTS(CU$,SH—1);SPC(3);* Ñ 

2410 PRINT HMS$;LEFTS(CU$,SH—1);SPC(3).M$;-RETURN 

3000 DIM 00(15):FOR 120 TO 15:READ 00(1).NEXT 

3010 HM$=CHR$(19):CU$="".FOR |=1 TO 25:CU$=CU$+CHR$(17) 
¿NEXT 

3020 LC=40:BL=1905:DM=54272 

3030 XK=13.YK=22.2:5H=25:WS=40 

3040 RETURN 

3050 DATA 32,126,124,226,123,97,255,236,108,127,225, 
251,98,252,254,160 


VIC 20 
Usa la versión del Commodore 64, pero cambia estas líneas. 


2000 POKE 368/9,8 ATT Aprieta las teclas CG y T al 
2030 PRINT “0 " mismo tiempo 20 veces 


3020 L(=22:BL=8121:DM=30720 . 
3030 XK=24.VK=24:5H=23.W8=22 41 





48 
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Apple Il, 3 
conversiones para, 44 
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Corregir programas, 6 
Correlaciones, 38-39 
Correlación inversa, 39 
Correlación positiva, 39 
Correlación programa, 38 
Cray-1, 4 
Din, clavija, 24, 25 
Dirección de una línea, 
programa, 21-22 
Diseño de un cohete, 5 
Economía, 20 
Ejercicios para hacer, 10 
Electrodos, 4 
Electrón, 3 
conversiones para, 42 
rutina de gráficos, 46 


ENTER, 6 
Escape, tecla, 6 
Estañar, cómo, 29 
Experimentos 
ácido-base, 28 
con cartas, 41 
con cometas, 39 
con dados, 40-41 
con la temperatura del 
cuerpo, 28 
curva de enfriamiento, 28 
de beber, 39 
sobre la temperatura en 
una habitación, 28 . 
Exportaciones, 20 
Grabar 
archivos en cinta, 34 
programas, 3 
Gráficos, 10, 11, 24, 28, 31 
Gravedad, 9 
Investigación cerebral, 4 
Investigación criminal, 5 
Investigación operacional, 14 
Júpiter, gravedad en, 9 
Media, 37 
Mediana, 37 
Mercurio, gravedad en, 9 
Moda, 37 
Modelo, 3, 4, 5 
cara o cruz, 7 
económico, 20-23 
pelota que bota, 8-9 
trayecto, 14-19 
Modelos macro-económicos, 
20 
Modelos micro-económicos, 
20 
Neptuno, gravedad en, 9 
Porcentajes, 19 
Port analógico, 24, 26 
clavijas, 24 | 
Port de control, 26 


Port para joystick, 26 

Posibilidades, programa, 40 

Programas, escribir y 
ejecutar, 6 

Pulsaciones, programa 11-12 

Pulso, cómo tomarlo, 13 


. Resistencia, 24, 25 


cómo calibrar, 27 
RETURN, 6 
RUN, 6 
Saturno, gravedad en, 9 
Sensores, 3, 4, 24, 31 
de temperatura, 24-29 
luminoso, 30-31 
Simulación de trayectos, 
programas, 15-16 
Soldador, 24 
Soldar, 24, 25 
cómo, 29 
Spectrum, 3 
conversiones para, 45 
rutina de gráficos, 46 
Tasa de inflación, 22, 23, 39 
Teoría de la gran explosión, 
4 
Test sobre forma física, 13 
Tipo de cambio, 22, 23, 39 
Tipo de interés, 22, 23 
TRS-80 Colour Computer (32 K), 3, 
19, 24, 25, 26 
conversiones para, 44 
rutina de gráficos, 47 
Urano, gravedad en, 9 
Valor promedio, 37 
Valor promedio, programa, 
37 
Venus, gravedad en, 9 
VIC 20, 3, 24, 25, 26 
conversiones para, 42-43 
rutina de gráficos, 47 
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